动态剖切线绘制

Gu_xl

有一点小问题，在程序开始之前要判断一下线型"DASHED"是否加载，若未加载，则先加载线型！若不然会出错！
可以这样加载线型:

1. (or (TBLSEARCH "LTYPE" "DASHED")
   
2.     (vl-catch-all-apply
   
3.       'vla-load
   
4.       (list (vla-get-Linetypes
   
5.               (vla-get-ActiveDocument (vlax-get-acad-object))
   
6.               )
   
7.             "DASHED"
   
8.             (findfile "acad.lin")
   
9.             )
   
10.       )
    
11.     )

(or (TBLSEARCH "LTYPE" "DASHED")<br />     (vl-catch-all-apply<br />       'vla-load<br />       (list (vla-get-Linetypes<br />               (vla-get-ActiveDocument (vlax-get-acad-object))<br />               )<br />             "DASHED"<br />             (findfile "acad.lin")<br />             )<br />       )<br />     )

Gu_xl

yoyoho 发表于 2013-5-29 07:39
在autocad2011也有同样情形!

应该是图形未加载dashed线型导致的！

CTC

指定剖切线起始点,或捕捉对齐点:
指定箭头方向,或符号:<A>,右键向视; 错误: *error* 函数中出错参数类型错误: lentityp nil

自贡黄明儒

从中学到不少东西!!

yoyoho

Gu_xl 发表于 2013-5-29 08:32
应该是图形未加载dashed线型导致的！

加载dashed线型,问题没改善!

另类思维

langs兄辛苦了

朽木大师

看着就心情相当爽

成仔

支持源码，下载学习

cjjh8301

膜拜！！！

669423907

很给力!箭头是否能长一点呢？