帮忙编写一个小lisp程序

Andyhon

那么您先模拟下,程序启动后需要User与之的互动与回应...
就像用 ARC 命令,不就有许多提示与回应...

先进者

大哥,不是我不想搞,是有很多地方我考虑不到,
试半天也试不出来,基础太差了,
你就发扬发扬风格,帮我一下把

Andyhon

程序启动后需要User与之的互动与回应...
是指如何取得程序运行所需的资料
比如 Cirle 命令 需要圆心+半径
有提示有回应才有结果呀

先进者

Andyhon 发表于 2012-3-12 18:07
程序启动后需要User与之的互动与回应...
是指如何取得程序运行所需的资料
比如 Cirle 命令 需要圆心+半径 ...

哥哥,这个程序没有那么复杂吧,随便写下就好了

Andyhon

;; 比如选取如 Layer a 的图元
;; 只是调试雏形
(defun C:lac3 ()
;; 选取如 Layer a 的图元)
(setq ss (ssget))
(command "Erase"  (ssget "P" '((0 . "DIMENSION,LINE,TEXT"))) "")
(command "Chprop" ss "" "C" 3 "")
)

您再扩充修订呗

先进者

我是想框选很多层,a层上的东西自动变为1号色,b层上的东西变为2号色,c层上的东西变为3号色

先进者

Andyhon 发表于 2012-3-12 19:09
;; 比如选取如 Layer a 的图元
;; 只是调试雏形
(defun C:lac3 ()

我是想框选很多层,a层上的东西自动变为1号色,b层上的东西变为2号色,c层上的东西变为3号色,剩下的我自己扩充就好了,
你给我的程序全部都变成一种颜色了,有很多图层,我要一个一个图层的改颜色很慢

669423907

我只会这样了：
(defun c:bs ()
(command "layer" "s" "a" "c" "1" "" "")
(command "layer" "s" "b" "c" "2" "" "")
(command "layer" "s" "c" "c" "3" "" "")
(princ))

669423907

这样也可以：
(defun c:bs ()
(command
"layer" "s" "a" "c" "1" "" ""
"layer" "s" "b" "c" "2" "" ""
"layer" "s" "c" "c" "3" "" ""
)(princ))

先进者

669423907 发表于 2012-3-12 23:56
这样也可以：
(defun c:bs ()
(command

你好,我想只改我选取的地方,
没有选取的地方不要改,
还有一个问题是假如没有b层的时候会提示错误,
可否帮忙优化一下