命令嵌套深度不能超过四层

852456 · 发表于 2018-10-3 13:39:06

(defun c:1 ()
  ;;;(xlr-get-ptn  对象)获取多段线坐标列表
(defun xlr-get-ptn (enmae / new_ls l2 l1)
;;;  (setq enmae (car (entsel )))
  (setq l1 (entget enmae))
  (setq new_ls nil)
  (foreach l2 l1
(if (= 10 (car l2))
   (setq new_ls (cons (cdr l2) new_ls))
)
  )
  (reverse new_ls)
)
(SETQ P1 (GETPOINT"\n指定第一点"))
(setq p2 (getpoint"\n指定第二点"))
(setq p3 (getpoint"\n指定第三点"))
(command "DJF3" "0.2" p1 p2 "")
(setq en (entlast))
(command "offset" "4" en p3 "")
(setq en1 (entlast))
(setq en_zb (xlr-get-ptn  en))
(setq en1_zb (xlr-get-ptn  en1))
(setq jd_zb (inters (car en_zb) (cadr en1_zb) (cadr en_zb) (car en1_zb)))
(entmake (list '(0 . "TEXT") (cons 1 "道路") (cons 10 jd_zb) (cons 40 1.5) (cons 41 1) (cons 7 "细等线体") (cons 8 "TK")(cons 71  0) (cons 72 1) (cons 73 2) (cons 11 jd_zb))))
请问为啥这段代码总是会出现命令嵌套深度不能超过四层的问题呢？哪里有嵌套？

xyp1964 · 发表于 2018-11-9 20:30:41

(defun c:tt ()
(while (and (setq p1 (getpoint "\n指定第一点: "))
(setq p2 (getpoint p1 "\n指定第二点: "))
(setq p3 (getpoint p2 "\n指定第三点: "))
)
(command "pline" p1 "w" "0.2" "" p2 "")
(command "offset" "4" (entlast) p3 "")
(setq s1 (entlast)
p3 (vlax-curve-getEndPoint s1)
p4 (vlax-curve-getStartPoint s1)
pt (inters p1 p3 p2 p4)
)
(entmake (list '(0 . "TEXT")
(cons 1 "道路")
(cons 10 pt)
(cons 40 1.5)
(cons 41 1)
(cons 7 "HZDX")
(cons 8 "TK")
(cons 71 0)
(cons 72 1)
(cons 73 2)
(cons 11 pt)
)
)
)
(princ)
)

xinxirong · 发表于 2018-10-5 11:55:02

(defun c:1 ()
  ;;;(xlr-get-ptn  对象)获取多段线坐标列表
  (defun xlr-get-ptn (enmae / new_ls l2 l1)
(setq l1 (entget enmae))
(setq new_ls nil)
(foreach l2 l1
   (if       (= 10 (car l2))
(setq new_ls (cons (cdr l2) new_ls))
)
   )
(reverse new_ls)
)
  (SETQ P1 (GETPOINT"\n指定第一点"))
  (setq p2 (getpoint"\n指定第二点"))
  (setq p3 (getpoint"\n指定第三点"))
  (command "pline" "0.2" p1 p2 "")
  (setq en (entlast))
  (command "offset" "4" en p3 "")
  (setq en1 (entlast))
  (setq en_zb (xlr-get-ptn  en))
  (setq en1_zb (xlr-get-ptn  en1))
  (setq jd_zb (inters (car en_zb) (cadr en1_zb) (cadr en_zb) (car en1_zb)))
  (entmake
(list
   '(0 . "TEXT")
   (cons 1 "道路")
   (cons 10 jd_zb)
   (cons 40 1.5)
   (cons 41 1)
   (cons 7 "细等线体")
   (cons 8 "TK")
   (cons 71  0)
   (cons 72 1)
   (cons 73 2)
   (cons 11 jd_zb)
   )
)
  )

852456 · 发表于 2018-10-3 21:57:54

xiaotao 发表于 2018-10-3 21:08
2009及以上版本的CAD就不会有这种情况了。

因为我用的是cass7.0 所以只能用04 到06版本的有什么办法解决这个问题吗|？

xiaotao · 发表于 2018-10-3 21:08:50

2009及以上版本的CAD就不会有这种情况了。

萧●﹏●明 · 发表于 2018-10-4 14:01:42

换CAD2008与Cass9.1

852456 · 发表于 2018-10-4 16:00:18

萧●﹏●明发表于 2018-10-4 14:01
换CAD2008与Cass9.1

谢谢我没有9.1的狗

萧●﹏●明 · 发表于 2018-10-4 16:24:33

852456 发表于 2018-10-4 16:00
谢谢我没有9.1的狗

现在有破解版

pengfei2010 · 发表于 2018-10-4 20:04:17

没有这种说法吧，理论上只要不死循环就没问题的

lifuq1979 · 发表于 2018-10-6 22:20:36

我2006运行没问题

852456 · 发表于 2018-10-6 22:41:13

lifuq1979 发表于 2018-10-6 22:20
我2006运行没问题

多运行几次就会有问题了好像是超过四次就会出来这个问题

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

[提问] 命令嵌套深度不能超过四层

本帖子中包含更多资源