DuanJinHui Posted February 16, 2017 Share Posted February 16, 2017 I see a function ,But No subfunctions. Hi Guys ,Do you have such a same function? Can share it? ;;Name - Layer Ltype Dimstyle Style Group Block Mlstyle Ucs View Viewport APPID Plotsettings ;; Dictionary ;; Ename , Insert Polyline 3dPolyline 3DMesh 3DFaceMesh (defun XD::Object:Get (Name / e el) (xdrx_object_get name) (while (setq e (xdrx_object_next)) (setq el (cons e el)) ) el ) ;;Name - 1 String Layer Ltype Dimstyle Style Group Block Mlstyle Ucs View Viewport APPID Plotsettings ;; Dictionary ;; 2 ADS_ENAME Insert Polyline 3dPolyline 3DMesh 3DFaceMesh eg: (mapcar 'cadr (XD::Object:Get "Layer")) (mapcar 'car (XD::Object:Get "Layer")) Quote Link to comment Share on other sites More sharing options...
DuanJinHui Posted February 17, 2017 Author Share Posted February 17, 2017 eg: (setq lyrlst (mapcar 'car (xd::object:get "layer"))) (setq linetypelst (mapcar 'car (xd::object:get "ltype"))) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.