Andyhon 发表于 2012-3-12 16:48:17

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

先进者 发表于 2012-3-12 17:44:48

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

Andyhon 发表于 2012-3-12 18:07:27

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

先进者 发表于 2012-3-12 18:23:24

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

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

Andyhon 发表于 2012-3-12 19:09:22

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

您再扩充修订呗

先进者 发表于 2012-3-12 19:23:46

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

先进者 发表于 2012-3-12 19:25:22

本帖最后由 先进者 于 2012-3-12 19:35 编辑

Andyhon 发表于 2012-3-12 19:09 http://bbs.mjtd.com/static/image/common/back.gif
;; 比如选取如 Layer a 的图元
;; 只是调试雏形
(defun C:lac3 ()


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

669423907 发表于 2012-3-12 23:46:42

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

669423907 发表于 2012-3-12 23:56:18

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

先进者 发表于 2012-3-13 11:20:37

669423907 发表于 2012-3-12 23:56 static/image/common/back.gif
这样也可以：
(defun c:bs ()
(command


你好,我想只改我选取的地方,
没有选取的地方不要改,
还有一个问题是假如没有b层的时候会提示错误,
可否帮忙优化一下
页: 1 2 [3] 4
查看完整版本: 帮忙编写一个小lisp程序