Extrim不在lisp中工作

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

我正在尝试在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

也许这样。。

copy


(c:extrim)

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

试试这个：

copy


(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你是怎么找到答案的。

[编程交流] Extrim不在lisp中工作

发表回复

精选推荐