明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 810|回复: 6

[提问] 求帮忙引线文字,改箭头文,设箭头为1.5 颜色为140.

[复制链接]
发表于 2019-10-10 11:30 | 显示全部楼层 |阅读模式
本帖最后由 lzg8877 于 2019-10-10 17:06 编辑

(defun c:q (/ bz *error* h r p0 teo leo p1 k p)
  (command "style" "ctxt" "romand.shx" "" "0.68" "0" "N" "N" "N")
  (command "-LAYER" "N" "3" "")
  (command "-LAYER" "S" "3" "")
  (command "-LAYER" "c" "3" "" "")
(command "-COLOR" "BYLAYER")
(command "-LINETYPE" "S" "BYBlock" "")线型
(command "-LWEIGHT" "BYLAYER")
(setvar "lwdisplay" 0)
(defun *error* (msg) (setvar "osmode" bz) (princ))
  (setq bz (getvar "osmode"))
  (command "ucs" "w")
  (setvar "osmode" 0)
  (setq h (getvar "dimscale")
        h (* (if (= h 0) 1 h) (getvar "dimtxt")) r h)
(if (> (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))) 0)
(vla-put-Height(vla-item (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) (getvar "textstyle")) 0)
)
  (while (setq p0 (getpoint "\n标工作带,请指定插入点:"))
   (setq p0 (trans p0 0 1))
   (command "text" "j" "m" p0 h 0 "XX")
   (setq teo (entget (entlast)))
   (command "line" p0 (polar p0 (/ pi 4) 0.1) "")
   (setq leo (entget (entlast)))
   (setq p1 (cdr (assoc 10 leo)) k 1)
   (while (/= k 3)
    (setq p (grread T))
    (setq k (car p) p (trans (cadr p) 0 1))
    (setq teo (subst (cons 11 p) (assoc 11 teo) teo))
    (entmod teo)
    (setq p (polar p (angle p p1) r))
    (setq leo (subst (cons 10 p) (assoc 10 (reverse leo)) leo))
    (if (> (distance p p0) 0.0) (entmod leo))
   )
  )
   (setvar "osmode" bz)
  (princ)
)



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2019-10-10 11:46 | 显示全部楼层
直接用引线命令就好了
 楼主| 发表于 2019-10-10 13:34 | 显示全部楼层
我知,但不一样的,我只要箭头第一段。
发表于 2019-10-10 16:34 | 显示全部楼层
那就直接用多段线命令在第一个循环尾部加上画箭头的码就行了

(setq ll (entlast) p2 (cdr (assoc 10 leo)) p3 (polar p0 (angle p0 p2) 1.5))
(command "PLINE" "non" p0 "w" 0 0.6 "non" p3 "w" 0 0 "non" p2 ""  "CHANGE" (entlast) "" "p" "c" 140 "" "ERASE" ll "")
 楼主| 发表于 2019-10-10 17:09 | 显示全部楼层
不会加试了几次了,水平不够
发表于 2019-10-10 17:18 | 显示全部楼层
(defun c:tt5 (/ bz *error* h r p0 teo leo p1 k p ll)
  (command "style" "ctxt" "romand.shx" "" "0.68" "0" "N" "N" "N")
  (command "-LAYER" "N" "3" "")
  (command "-LAYER" "S" "3" "")
  (command "-LAYER" "c" "3" "" "")
(command "-COLOR" "BYLAYER")
(command "-LINETYPE" "S" "BYBlock" "")线型
(command "-LWEIGHT" "BYLAYER")
(setvar "lwdisplay" 0)
(defun *error* (msg) (setvar "osmode" bz) (princ))
  (setq bz (getvar "osmode"))
  (command "ucs" "w")
  (setvar "osmode" 0)
  (setq h (getvar "dimscale")
        h (* (if (= h 0) 1 h) (getvar "dimtxt")) r h)
(if (> (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))) 0)
(vla-put-Height(vla-item (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) (getvar "textstyle")) 0)
)
  (while (setq p0 (getpoint "\n标工作带,请指定插入点:"))
   (setq p0 (trans p0 0 1))
   (command "text" "j" "m" p0 h 0 "XX")
   (setq teo (entget (entlast)))
   (command "line" p0 (polar p0 (/ pi 4) 0.1) "")
   (setq leo (entget (entlast)))
   (setq p1 (cdr (assoc 10 leo)) k 1)
   (while (/= k 3)
    (setq p (grread T))
    (setq k (car p) p (trans (cadr p) 0 1))
    (setq teo (subst (cons 11 p) (assoc 11 teo) teo))
    (entmod teo)
    (setq p (polar p (angle p p1) r))
    (setq leo (subst (cons 10 p) (assoc 10 (reverse leo)) leo))
    (if (> (distance p p0) 0.0) (entmod leo))
   )
  
        (setq ll (entlast) p2 (cdr (assoc 10 leo)) p3 (polar p0 (angle p0 p2) 1.5))
        (command "PLINE" "non" p0 "w" 0 0.6 "non" p3 "w" 0 0 "non" p2 ""  "CHANGE" (entlast) "" "p" "c" 140 "" "ERASE" ll "")
       
          )

   (setvar "osmode" bz)
  (princ)
)
 楼主| 发表于 2019-10-10 17:18 | 显示全部楼层
我想问一下,能改动么 还关联么?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 17:47 , Processed in 0.224517 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表