损坏的引数类型请教
下面代码为Z版在明经中所回答的，因为是新手所是就练习比较简单的代码不知道发生什麽原因居然发生点类型找不到，经一查发现是P2、P3、P4的变
数值居然找不到，写法应该没有问题，为什麽会找不到呢?
有好心的牛人可以指点一下嘛！
(defun c:tt ()
(if (and (setq s1 (entsel "\n第一条直线："))
(setq s2 (entsel "\n第二条直线："))
(setq en1 (entget(car s1)))
(setq en2 (entget(car s2)))
(= (cdr (assoc 0 en1)) "LINE")
(= (cdr (assoc 0 en2)) "LINE"))
(progn
(SETQ p1 (cdr (assoc 10 en1)))
(SETQ p2 (cdr (assoc 11 enl)))
(SETQ p3 (cdr (assoc 10 en2)))
(SETQ p4 (cdr (assoc 11 en2)))
(if (inters p1 p4 p2 p3)
(command ".SOLID" p1 p3 p2 p4 "")
(command ".SOLID" p1 p4 p2 p3 "")
)
))
(princ)
)
; 错误: 损坏的引数类型: 2D/3D 点: nil (SETQ p2 (cdr (assoc 11 enl)))
把这局代码中的 enl 改成 en1
变成这样 "(SETQ p2 (cdr (assoc 11 en1)))"
估计是笔误造成的. EMD 发表于 2012-9-8 11:28 static/image/common/back.gif
(SETQ p2 (cdr (assoc 11 enl)))
把这局代码中的 enl 改成 en1
谢谢你欧已经可以使用了
页:
[1]