社区 › 编程申请 › 点选直线，以此线图层的名字在直线附近写出文字

ALXY 发表于 2011-6-8 16:17:07

点选直线，以此线图层的名字在直线附近写出文字

本帖最后由 ALXY 于 2011-6-9 00:06 编辑

各位好，现有如下编程申请。
1.点选直线，以此线图层的名字在直线附近写出单行文字。
2.文字能与直线平行，即文字可水平也可竖直。
3.尽量能按照附件中的cad文件的要求，写出两种模式分别对应的程序。

具体要求见附件中的dwg文件。

谢谢大家！

Andyhon 发表于 2011-6-8 21:15:04

本帖最后由 Andyhon 于 2011-6-8 21:15 编辑

可有 150度 + 270度 走向 线的标示例

ZZXXQQ 发表于 2011-6-8 21:27:38

本帖最后由 ZZXXQQ 于 2011-6-8 21:32 编辑


;写物体层名 明经 ZZXXQQ 2011.6.8
(defun c:tt ()
(setvar "CMDECHO" 0)
(while (setq s1 (entsel "\n选择物体 :"))
(setq lnm (cdr(assoc 8 (entget(car s1)))))
(setq pt (cadr s1)
      pt1 (osnap pt "NEAR")
      a (angle pt1 pt)
      ang (- (* (/ a PI) 180) 90)
      ang (if (< ang 0) (+ ang 360) ang)
      ang (if (< 120 ang 300) (- ang 180) ang)
      sc (getvar "DIMSCALE")
      h (getvar "DIMTXT")
      d (* (if (> sc 0) sc 1) (+ (* h 0.5) (getvar "DIMGAP")))
      pt2 (polar pt1 a d))
(command ".TEXT" "M" pt2 h ang lnm)
)
(setvar "CMDECHO" 1)
(princ)
)

ALXY 发表于 2011-6-9 00:08:57

回复 Andyhon 的帖子

Andyhon 你好，我已经在附件的DWG中更新了图示，你可以重新下载一次，非常感谢！

ALXY 发表于 2011-6-9 00:12:09

本帖最后由 ALXY 于 2011-6-9 00:17 编辑

回复 ZZXXQQ 的帖子

非常感谢 ZZXXQQ 版主的回帖，我试用了一下程序，很不错，非常感谢！
版主的程序是其中的模式1的程序，不知是否能编制程序达到模式2的效果？
谢谢！

fullfill 发表于 2011-6-11 11:51:23

这个是做什么用的

tumu8420 发表于 2011-6-11 22:19:04

这个东西是比较好的啊

xyxy 发表于 2011-6-23 11:08:25

看不到程序啊

xzqk132 发表于 2011-6-26 10:51:11

这个很不错啊，我也想要一个他的模式2的程序，不知道哪位大侠能帮编一个这样的程序？

zwqgdhl 发表于 2011-6-28 11:24:24

这样的程序还是比较有用的

查看完整版本: 点选直线，以此线图层的名字在直线附近写出文字