找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

LISP|
分享 侧视图外形
fangseng 2020-4-30 13:48
(defun getentdxf (ent dxf) (cond ((= (type ent) 'ename) (cdr (assoc dxf (entget ent '("*")))) ) ((= (type ent) 'vla-object) (cdr (assoc dxf (entget (*obj2en* ent) '("*")))) ) ) ) ...
个人分类: LISP|169 次阅读|0 个评论
分享 侧视图外形
fangseng 2020-4-30 13:48
(defun getentdxf (ent dxf) (cond ((= (type ent) 'ename) (cdr (assoc dxf (entget ent '("*")))) ) ((= (type ent) 'vla-object) (cdr (assoc dxf (entget (*obj2en* ent) '("*")))) ) ) ) ...
个人分类: LISP|139 次阅读|0 个评论

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-5-4 06:34 , Processed in 0.290002 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

返回顶部