wmz 发表于 2016-1-22 18:46:47

请教并讨论调用ARX命令问题

;;这样可以
(defun c:tt(/ s )
   (setq s (ssget "X" '((8 . "dmx")(0 . "*POLYLINE"))))
   (setq n (sslength s) m 0)
      (command "GCSPZJ" 1 2)
(repeat n
      (setq e (ssname s m) m (1+ m))
       (command e) ;;;调用等高线注记命令
)
    (command)
)
;;这样不可以,出现嵌套超过4层问题，咋办？
(defun c:tt(/ s )
    (setq s (ssget "X" '((8 . "dmx")(0 . "*POLYLINE"))))
    (setq n (sslength s) m 0)
(repeat n
      (setq e (ssname s m) m (1+ m))
         (command "GCSPZJ" 1 2e "")
   )
)


wmz 发表于 2016-1-23 11:00:39

;;这样不可以,出现嵌套超过4层问题，咋办？
(defun c:tt(/ s )
    (setq s (ssget "X" '((8 . "dmx")(0 . "*POLYLINE"))))
    (setq n (sslength s) m 0)
(repeat n
      (setq e (ssname s m) m (1+ m))
         (command "GCSPZJ" 1 2e "")
   )
)

ivde 发表于 2016-1-23 12:50:20

这样的Cass只会用户越来越少

xiaotao 发表于 2016-1-24 16:04:28

嵌套超过4层 这是AutoCAD的问题吧！你用2009就不会不出现这样的问题了
页: [1]
查看完整版本: 请教并讨论调用ARX命令问题