求解释

fjutcivil · 发表于 2014-7-29 12:08:55

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

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

×

本帖最后由 fjutcivil 于 2014-7-29 12:11 编辑

想实现第二张图片的效果，下面的代码有的时候会变成第三张图片的样子，为什么第二点的X坐标会跳掉，附件后缀改成DWG就是我用来实验的图纸
(defun c:aa22 ()
(setq ss (ssget))
(setq ss1 (ssget "P" '((1 . "*[a-A-z-Z]*"))));上次的字母选择集
(command "ERASE" ss1 "")
(command "select" ss "")
(setq ss2 (ssget "P" '((0 . "LINE"))));上次的直线选择集

(setq x1x (entget (ssname ss2 0)))
(setq q1 (cdr (assoc 10 x1x)))

(setq x1 (car q1))
(setq y1 (cadr q1))
(setq q11 (list x1 y1 0))
(setq q22 (list x1 (+ y1 850) 0))
(command "line" q11 q22 "" )
(command "ERASE" ss2 "")

)

csharp · 发表于 2014-7-29 12:46:12

关掉捕捉

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

[求助] 求解释

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