Question

一个lisp程序，请求高手帮我修改下

(defun c:test (/ d s n e )
(if (setq d (ssadd) s (ssget "_:S" '((0 . "*LINE,ARC"))))
(repeat (setq n (sslength s))
(setq e (ssname s (setq n (1- n))))
(foreach p (list (vlax-curve-getStartPoint e) (vlax-curve-getEndPoint e))
(setq d (ssadd (entmakex (list '(0 . "CIRCLE") (cons 10 p) (cons 40 1.) '(62 . 1))) d))
))
)
(sssetfirst nil d)
(princ)
)
上面这段代码，有画红色圆并亮显的功能，我想将下面这段代码的画圆也变成上面这种，画红色圆并亮显

(defun C:w1 (/ E LST LST1 N PTS SS X)
(cond
((setq ss (ssget ":S" '((0 . "*LINE,ARC"))))
(repeat (setq n (sslength ss))
(setq e (ssname ss (setq n (1- n))))
(setq pts (cons (vlax-curve-getStartPoint e) pts))
(setq pts (cons (vlax-curve-getEndPoint e) pts))
)
(while (setq x (car pts))
(setq pts (cdr pts))
(setq lst1 nil
lst nil
)
(foreach Y pts
(cond ((equal x Y 0.1) (setq lst (cons Y lst)))
(T (setq lst1 (cons Y lst1)))
)
)
(cond ((not lst) (command "_.circle" x 5)))
(setq pts lst1)
)
)
)
)

Answer 1

你的第一个程序是缺少东西的，应该添加 (vl-load-com)。
W1程序需要建立选择集，然后利用程序修改颜色

追问

第一个程序画圆和亮显的代码好像是
(setq d (ssadd (entmakex (list '(0 . "CIRCLE") (cons 10 p) (cons 40 1.) '(62 . 1))) d)))))
(sssetfirst nil d)
第二个画圆的代码是：(command "_.circle" x 5)))

我想要第二个画圆的跟第一个一样，画圆并亮显，能帮我修改一下吗？

追答

你的第一个程序是缺少东西的，应该添加 (vl-load-com)。
W1程序需要建立选择集，然后利用程序修改颜色

(defun C:w1 (/ E LST LST1 N PTS SS X)
(cond
((setq ss (ssget ":S" '((0 . "*LINE,ARC"))))
(repeat (setq n (sslength ss))
(setq e (ssname ss (setq n (1- n))))
(setq pts (cons (vlax-curve-getStartPoint e) pts))
(setq pts (cons (vlax-curve-getEndPoint e) pts))
)
(while (setq x (car pts))
(setq pts (cdr pts))
(setq lst1 nil
lst nil
)
(foreach Y pts
(cond ((equal x Y 0.1) (setq lst (cons Y lst)))
(T (setq lst1 (cons Y lst1)))
)
)
(command "color" "10" );设置当前绘制对象颜色
(cond ((not lst) (command "_.circle" x 5)))
(setq pts lst1)
(command "color" "bylayer" );恢复随层颜色

)
)
)
)

追问

没有亮显啊，程序中，只是绘图中改变了图层，

追答

(defun C:w1 (/ E LST LST1 N PTS SS X)
(cond
((setq ss (ssget ":S" '((0 . "*LINE,ARC"))))
(repeat (setq n (sslength ss))
(setq e (ssname ss (setq n (1- n))))
(setq pts (cons (vlax-curve-getStartPoint e) pts))
(setq pts (cons (vlax-curve-getEndPoint e) pts))
)
(while (setq x (car pts))
(setq pts (cdr pts))
(setq lst1 nil
lst nil
)
(foreach Y pts
(cond ((equal x Y 0.1) (setq lst (cons Y lst)))
(T (setq lst1 (cons Y lst1)))
)
)
(setq d (ssadd (entlast)))
(command "color" "10" );设置当前绘制对象颜色
(cond ((not lst) (command "_.circle" x 5)))
(setq pts lst1)
(setq d (ssadd (entlast) d))
(sssetfirst nil d)

)
)
)
)
运行上面这个，看看是不是你想要的

追问

谢谢！但是我不想用command命令，想要entmakex ，entmakex可以指定线颜色，