社区 › AutoLISP/Visual LISP 编程技术 › 【更新—动态版】引线写入文字(源码)（线长随文字长短）

caomo922 发表于 2012-5-9 17:06:30

以为是小萝卜头的那种   结果不是

edoumxx 发表于 2012-5-10 08:55:08

在找这类插件，之前的插件只支持放标注xy坐标，想添加文字都不行。谢谢分享

lidaxiu 发表于 2012-5-10 13:11:15

恩这个功能还算实用

lidaxiu 发表于 2012-5-10 13:14:34

如果文字在引线的侧面不在上面就好了

susanlingb 发表于 2012-5-10 16:51:16

谢谢分享谢谢分享

bikeboy 发表于 2012-5-10 17:17:12

如何将两条直线变成多段线？

【KAIXIN】 发表于 2012-5-10 17:34:51

本帖最后由 【KAIXIN】 于 2012-5-10 17:35 编辑

bikeboy 发表于 2012-5-10 17:17 http://bbs.mjtd.com/static/image/common/back.gif
如何将两条直线变成多段线？

如果是直线相连的：
(defun c:XX   (/ b)
   (setvar "cmdecho" 0) ;指令执行过程不响应
   (PRINC "\n连接在一起的直线合并成一条多段线功能")(PRINC)
(setvar "peditaccept"1)
(setq b (ssget'((-4 . "<OR")(0 . "LINE")(0 . "LWPOLYLINE")(0 . "ARC")(-4 . "OR>"))))
(command "pedit" "m"b "" "j""0" "" )
   (PRINC "\n合并完成！")(PRINC))

hhhlike 发表于 2012-5-10 17:41:07

我也来学习一下

jxpln 发表于 2012-5-10 21:49:26

标注文字能自己定义字型吗？

bikeboy 发表于 2012-5-11 07:45:54

【KAIXIN】 发表于 2012-5-10 17:34 static/image/common/back.gif
如果是直线相连的：
(defun c:XX   (/ b)
   (setvar "cmdecho" 0) ;指令执行过程不响应


太给力了 我顶你哟

查看完整版本: 【更新—动态版】引线写入文字(源码)（线长随文字长短）