yang686526

请教大侠们，如何更改图元颜色
www.dimcax.com
请教大侠们，如何更改图元颜色
小弟写了个程序，我现在想加入一个功能就是修改后将颜色修改成红色，该怎么加入语句呢，我用command好像不行
(defun c:jj12(/ ss dm dmbgmc dmbg gd gdbg gdbgmc js jsbg jsbgmc jsbgmc1 newjs newjsjs )
(prompt "请选择地面标高 ")
(setq ss (ssget '((0 . "text"))))
(setq dm (ssname ss 0))
(setq dmbgmc (entget dm))
(setq dmbg (atof(cdr (assoc 1 dmbgmc))))
(prompt "请选择管底标高 ")
(setq ss (ssget '((0 . "text"))))
(setq gd (ssname ss 0))
(setq gdbgmc (entget gd))
(setq gdbg (atof(cdr (assoc 1 gdbgmc))))
(prompt "请选择需修改标高的标注 ")
(setq ss (ssget '((0 . "text"))))
(setq js (ssname ss 0))
(setq jsbgmc (entget js))
(setq jsbg (atof(cdr (assoc 1 jsbgmc))))
(setq newjs (- dmbg gdbg))
(setq newjsjs1 (cons 1 (strcat "1000×1
d
你都用到图元表了，为什么不用62组码呢？
新手上路，请多指点。
d
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22( c:jj12( ss dm dmbgmc dmbg gd gdbg gdbgmc js jsbg jsbgmc jsbgmc1 newjs newjsjs )
( "请选择地面标高 ")
( ss ( '((0 . "text"))))
( dm ( ss 0))
( dmbgmc ( dm))
( dmbg ((cdr ( 1 dmbgmc))))
( "请选择管底标高 ")
( ss ( '((0 . "text"))))
( gd ( ss 0))
( gdbgmc ( gd))
( gdbg ((cdr ( 1 gdbgmc))))
( "请选择需修改标高的标注 ")
( ss ( '((0 . "text"))))
( js ( ss 0))
( jsbgmc ( js))
( jsbg ((cdr ( 1 jsbgmc))))
( newjs (- dmbg gdbg))
( jsbgmc ( newjsjs1 ( 1 jsbgmc) jsbgmc))
( jsbgmc)
( "change" js "" "p" "c" "1" "")
())
用change 或者entmod
d
学习了
d