[求助]：安是初学者有一个小问题就是dxf

art_house · 发表于 2006-10-9 10:54:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

defun c:ssc(/ slent color ss)
(setq slent (car (entsel "\n请选择样板实体:")))
(if slent
(progn
(setq color (dxf 62 slent))
(if (not color) (setq color (getcolor (dxf 8 slent))))
(setq ss (ssget_by_color color))
(command "select" ss "" "pselect" ss "")
));;if
);;defun
这其中的dxf是什么意义，是不是和 '(62 slent)一样的效果，在书上没找到。望大侠说说。谢谢

pppppp4053 · 发表于 2006-10-9 11:03:14

此处的(dxf 62 slent))应该是调用程序dxf ，62 和slent是它的变量，你看看全程序中可是有（defun dxf ( xx xx) ……）这段代码

KLDC · 发表于 2006-10-11 00:58:33

是不是小菜克隆选择易贴子里的一段代码？
DXF是一个用户自定义涵数，代码如下：

(defun dxf ( i ent)
(if (= (type ent) 'ENAME)
(setq ent (entget ent))
)
(cdr (assoc i ent))
)

把它加在楼主代码的后面就能运行了。

（PS：这段代码是从小菜的贴里偷过来的）

art_house · 发表于 2006-10-11 10:50:41

谢谢，非常感谢，就是楼上所说的。我是在偷学。

WHGF · 发表于 2006-10-12 08:10:40

这是按DXF文件格式提取组码为62的数据,程序设计者设计了这个即直观又使用方便的函数.它适用于大多数DXF格式组码的提取.

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：安是初学者有一个小问题就是dxf

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子