社区 › AutoLISP/Visual LISP 编程技术 › 动态剖切线绘制

Gu_xl 发表于 2013-5-29 08:31:26

本帖最后由 Gu_xl 于 2013-5-29 08:33 编辑

有一点小问题，在程序开始之前要判断一下线型"DASHED"是否加载，若未加载，则先加载线型！若不然会出错！
可以这样加载线型:
(or (TBLSEARCH "LTYPE" "DASHED")
    (vl-catch-all-apply
      'vla-load
      (list (vla-get-Linetypes
            (vla-get-ActiveDocument (vlax-get-acad-object))
            )
            "DASHED"
            (findfile "acad.lin")
            )
      )
    )

Gu_xl 发表于 2013-5-29 08:32:46

yoyoho 发表于 2013-5-29 07:39 static/image/common/back.gif
在autocad2011也有同样情形!

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

CTC 发表于 2013-5-29 08:33:16

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

自贡黄明儒 发表于 2013-5-29 09:18:59

从中学到不少东西!!

yoyoho 发表于 2013-5-29 09:30:00

Gu_xl 发表于 2013-5-29 08:32 static/image/common/back.gif
应该是图形未加载dashed线型导致的！

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

另类思维 发表于 2013-5-29 09:50:17

langs兄辛苦了

朽木大师 发表于 2013-5-29 10:17:10

看着就心情相当爽

成仔 发表于 2013-5-29 10:42:47

支持源码，下载学习

cjjh8301 发表于 2013-5-29 11:15:09

膜拜！！！

669423907 发表于 2013-5-29 16:55:38

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

查看完整版本: 动态剖切线绘制