[求助]：高手：如何编“刷一条线的线型”的程序

urljit

我的程序里面用到此功能：
程序的功能是线型刷子，问题出现在当源的线型是bylayer的时候，获得的6组码为空，这时再刷，就会出现错误：Error: DXF 组不正确: (6)[/COLOR]

wjm3

最初由 urljit 发布
[B]我的程序里面用到此功能：
程序的功能是线型刷子，问题出现在当源的线型是bylayer的时候，获得的6组码为空，这时再刷，就会出现错误：Error: DXF 组不正确: (6)[/COLOR] [/B]

要实现这个功能不难啊，处理类似这种随层的特性，你可以加一条判断语句，如源对象没有该组码，可删除目标对象的该组码啊，也就达到你要的效果了。

cy956

贴一个

aeo

MATCHPROP
s一下

urljit

aeo：其实我就是要编程试试，象2楼说的做法，但苦于没有简便算法。

faigy

用vla编不可以么？

urljit

楼上：给个例子不好么？

梦断江南

2. 
   
3. ;;线型刷子:
   
4. ;; (c:ltmp)
   
5. (defun c:ltmp ( / e lt i ss)
   
6.   (if (and(setq e (car(nentsel "\n 线型原型:")))
   
7.           (setq        lt(vla-get-linetype (vlax-ename->vla-object e)))
   
8.           (princ "\n 选择要刷线型的实体:")
   
9.           (setq i -1 ss (ssget)))          
   
10.       (while (setq e(ssname ss (setq i (1+ i))))
    
11.         (vla-put-linetype (vlax-ename->vla-object e) lt)
    
12.       )
    
13.   )(princ)
    
14. )
    

<br /> ;;线型刷子:<br /> ;; (c:ltmp)<br /> (defun c:ltmp ( / e lt i ss)<br />   (if (and(setq e (car(nentsel "\n 线型原型:")))<br />           (setq        lt(vla-get-linetype (vlax-ename->vla-object e)))<br />           (princ "\n 选择要刷线型的实体:")<br />           (setq i -1 ss (ssget)))          <br />       (while (setq e(ssname ss (setq i (1+ i))))<br />         (vla-put-linetype (vlax-ename->vla-object e) lt)<br />       )<br />   )(princ)<br /> )<br />

urljit

看了，明白了，谢谢

aeo

实体的线型藏在层里面.

vla方法比较简单，但靠它来ssget ,还得回到层.

urljit

因为熟悉autolisp，我看如何简捷的删除有关组码是关键问题。