BIGAL 发表于 2022-7-6 07:01:55

Extrim不在lisp中工作

我正在尝试在lisp中使用Xtrim，一旦我添加了弧来连接任何想法，它将不起作用。
 

 
(setq obj (car (entsel "\npick pline")))
(setq pt1 (getpoint "\nPick point on outside"))
(load "extrim")
(etrim obj pt1)

Tharwat 发表于 2022-7-6 07:29:39

也许这样。。
 

(c:extrim)

marko_ribar 发表于 2022-7-6 07:42:56

试试这个：
 

(defun c:test ( / obj pt )
(load "extrim")

(acet-error-init (list
                  (list   "cmdecho" 0
                        "highlight" 0
                        "regenmode" 1
                           "osmode" 0
                        "ucsicon" 0
                     "offsetdist" 0
                           "attreq" 0
                         "plinewid" 0
                        "plinetype" 1
                         "gridmode" 0
                        "celtype" "CONTINUOUS"
                        "ucsfollow" 0
                         "limcheck" 0
                  )
                  T   ;flag. True means use undo for error clean up.
                  '(if redraw_it (redraw na 4))
               );list
);acet-error-init

(setq obj (car (entsel "\nPick pline")))
(setq pt (getpoint "\nPick point on side to extrim : "))
(etrim obj pt)

(acet-error-restore)
(princ)
)

 
我在extrim中发现了一个小错误。lsp（在命令“copy”之后）-函数没有完成，所以我添加了（while（>（getvar'cmdactive）0）（命令“”））
比较我的版本和你的-检查这个帖子。。。
 
M、 R。

BIGAL 发表于 2022-7-6 08:07:00

谢谢marko ribar你是怎么找到答案的。
页: [1]
查看完整版本: Extrim不在lisp中工作