[求助]：问大伙几个LISP问题啊，请帮忙——

寒光四射

问大伙几个LISP问题啊，请帮忙——
1、修改当前图层：（command "layer" "set" "ss" ""）,即把当前层设置为SS层，现在问题是，如何判断是否存在SS层？如果有，则修改当前层为：SS，如果没有就不改变当前层。
2、前几天得斑竹一个程序，点击封闭形状得出面积加“S=”，如S=90.21，如果我点击几个，除了要S=？？外，在旁边怎么加一个总和啊（现在能实现每个有S=？？，但没有它们总和）
3、我有文本S=90.88，......我想把后面的读出来再加，怎么读啊？如点击S=90.00和S=100.00，得出190.00。
请大家帮帮菜鸟吧，我将感激不尽，点滴之恩将以长江黄河相报，谢谢

cy956

你开始自己写么？开始可以“拿来”，对照函数记熟了函数功能，对照dxf组码表记熟了实体数据，以上问题都不是问题。

xshrimp

(tblsearch "layer" layname) ;判断图层layname是否存在.
其于内容在论坛搜索一下就行了.

HuaiYu

还是不能下载?真是 无聊，下载还要钱

xyp1964

最初由 寒光四射 发布
[B]问大伙几个LISP问题啊，请帮忙——
1、修改当前图层：（command "layer" "set" "ss" ""）,即把当前层设置为SS层，现在问题是，如何判断是否存在SS层？如果有，则修改当前层为：SS，如果没有就不改变当前层。
2、前... [/B]

1

2. [FONT=courier new]
   
3. ;;; ----------------------- MKLA ---------------------------
   
4. ;;;                   图层颜色格式化输入                    
   
5. ;;;方式 : (mkla "层名" 颜色号)                              
   
6. (defun mkla (name color)
   
7.   (If (= (Tblsearch "layer" name) nil)
   
8.     (Command "layer" "m" name "c" color name "")
   
9.     (Command "layer" "t" name "s" name "c" color name "")
   
10.   )
    
11. )[/FONT]

[FONT=courier new]<br /> ;;; ----------------------- MKLA ---------------------------<br /> ;;;                   图层颜色格式化输入                    <br /> ;;;方式 : (mkla "层名" 颜色号)                              <br /> (defun mkla (name color)<br />   (If (= (Tblsearch "layer" name) nil)<br />     (Command "layer" "m" name "c" color name "")<br />     (Command "layer" "t" name "s" name "c" color name "")<br />   )<br /> )[/FONT]

例子：
[php](mkla"SS"1)[/php]

taner

高手們都象XYP版主這麽熱心就好了!

寒光四射

第二个问题解决了,算出的面积在还没有加"S="前,先转为字符型,然后又转回数字型,相加,相加的结果最后又转为字符型,在图形上标出来.
注:转来转去的,都是为了小数2位,避免四舍五入导致标注的面积总和不对

xyp1964

三

2. [FONT=courier new](defun c:test ()
   
3.   (setq        ss (ssget '((0 . "TEXT")))
   
4.         i  -1
   
5.         m  0
   
6.   )
   
7.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.     (setq tx (cdr (assoc 1 (entget s1))))
   
9.     (if        (setq n (distof (substr tx 3)))
   
10.       (setq m (+ m n))
    
11.     )
    
12.   )
    
13.   m
    
14. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        ss (ssget '((0 . "TEXT")))<br />         i  -1<br />         m  0<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq tx (cdr (assoc 1 (entget s1))))<br />     (if        (setq n (distof (substr tx 3)))<br />       (setq m (+ m n))<br />     )<br />   )<br />   m<br /> )[/FONT]