[建议]：斑竹每个星期出一道题，提高我等菜鸟！

十一郎

希望斑竹可以深入浅出的出题，每个星期一道，这样把我们这些菜鸟提高提高.。

lhh9801

我赞同！希望对我门有帮助

碧浪可儿

我同意！我在单位也没人教，急切想让个好老师提高自己的制图水平。

dreamsky

我提过几次,不过老大好像不吭声的样子.
既然大家有兴致,我给大伙出一个吧,听好了
将选择集内线性物体(line,*line,arc,ellipse等)按照用户输入的宽度数值,变成双线.
其实就是单线变双.只是先不处理交叉打断.
ok

stonelicky

象我等菜鸟，还是不懂，最好从新开始，从零开始！楼上的兄弟，你的题目还是不懂也，出题后要告诉大家怎么做呀！

dreamsky

好,那就来个初级的,
将选中的文字,同一改字高

思路:
1,用(ssget....) 过虑选集
2.对每个文本实体,修改字高.如用vl,可直接改属性,如用lisp,要提取dxf字高组码,并且修改实体表.

aeo

最初由 dreamsky 发布
[B]我提过几次,不过老大好像不吭声的样子.
既然大家有兴致,我给大伙出一个吧,听好了
将选择集内线性物体(line,*line,arc,ellipse等)按照用户输入的宽度数值,变成双线.
其实就是单线变双.只是先不处理交叉打断.
ok [/B]

2. 
   
3. ;可能不成功,不成功没做处理
   
4. (defun c:test( / e in n ss wid)
   
5. (if(and
   
6.      (setq ss(ssget '((0 . "*line,arc,ellipse"))))
   
7.      (setq wid(getreal "\nWidth:"))
   
8.      (setq n  (SSLENGTH ss) in 0)
   
9.     )
   
10.   (REPEAT n
    
11.    (setq e(vlax-ename->vla-object(ssname ss in))
    
12.          in(1+ in) )
    
13.    (vlax-invoke-method e 'offset (/ wid 2.0))
    
14.    (vlax-invoke-method e 'offset (/ wid -2.0))
    
15.   )
    
16. ))
    

<br /> ;可能不成功,不成功没做处理<br /> (defun c:test( / e in n ss wid)<br /> (if(and<br />      (setq ss(ssget '((0 . "*line,arc,ellipse"))))<br />      (setq wid(getreal "\nWidth:"))<br />      (setq n  (SSLENGTH ss) in 0)<br />     )<br />   (REPEAT n<br />    (setq e(vlax-ename->vla-object(ssname ss in))<br />          in(1+ in) )<br />    (vlax-invoke-method e 'offset (/ wid 2.0))<br />    (vlax-invoke-method e 'offset (/ wid -2.0))<br />   )<br /> ))<br />

siza91

给点比较使用，简单的好不好！