【求助】autolisp的问题！！

chenhu · 发表于 2003-9-5 20:34:39

马上注册，结交更多同行朋友，交流，分享，学习。

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

x

主要是trim不会用
呵呵，见笑了
(defun jx ()
(setq os (getvar "OSMODE"))
(setvar "OSMODE" 0)
(Command "LINE" (list 0 0) (list 0 50) "") ;画一条线段A
(Command "LINE" (list 30 0) (list 30 50) "")  ;再画一条线段B
(Command "LINE" (list -10 25) (list 50 50) "")  ;画一条线段与AB相交
(Command "trim" (list 0 30) (list 30 30) "" (list 15 25) "E")  ;删掉夹在A，B之间
的那段
(setvar "OSMODE" os)
)