裁剪的问题，求讲解

qq1846687144 · 发表于 2016-8-22 15:56:02

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

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

×

第一种方式，这样可以生成完整栏选方式的剪切范围
(defun c:mmm ()
(setq db (list '(10 20) '(10 31) '(10 32)))
(princ db)
(if t
(setq ss (ssget))
)
(setq pt1 (car db))
(setq pt2 (cadr db))
(setq pt3 (caddr db))
(command "trim" ss "")
(command "f" pt1 )
(command pt2)
(command pt3)
)
下面是第二种，下面种方式生成的裁剪栏选范围就不对了，而且提示响应无效，是什么原因啊？头都大了！
(defun c:mmm ()
(setq db (list '(10 20) '(23 31) '(15 32)))
(princ db)
(if t
(setq ss (ssget))
)
(setq pt1 (car db))
(command "trim" ss "")
(command "f" pt1 )
(setq n 2)
(while
(setq pt (nth n db))
((command pt))
(setq n (+ 1 n))
)
)

Lisphk · 发表于 2016-8-22 16:18:48

(setq n 2)

确定是从2开始？

((command pt))

这样写对吗？怎么两层括号？

qq1846687144 · 发表于 2016-8-22 17:42:09

Lisphk 发表于 2016-8-22 16:18
确定是从2开始？

感谢大神！！！

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

[求助] 裁剪的问题，求讲解

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

点评