再请帮忙，拉线写入文字（文字固定为0.0）

lzg8877 · 发表于 2013-4-18 06:23:00

(defun c:qaa ()(command "qleader" pause pause "" "0.0" ""))
这个代码达不到效果！有那位朋友可以重新写一个吗？　感激

ZZXXQQ · 发表于 2013-4-18 08:28:27

本帖最后由 ZZXXQQ 于 2014-11-18 08:31 编辑

(defun c:qaa ()
(setvar "CMDECHO" 0)
(setq p1 (getpoint "\nStart point :")
p2 (getpoint p1 "\nEnd point :"))
(command "DIM1" "LEADER" p1 p2 ^C "_.TEXT" "M" (polar p2 (angle p1 p2) 10) 20 0 "0.0")
(setvar "CMDECHO" 1)
(princ)
)

;圆点
(defun c:qaa ()
(setvar "CMDECHO" 0)
(setq p1 (getpoint "\nStart point :")
p2 (getpoint p1 "\nEnd point :"))
(if (= (tblsearch "DIMSTYLE" (strcat (getvar "DIMSTYLE") "$$7")) nil) (PROGN
(setvar "DIMASZ" 0.5) (setvar "DIMLDRBLK" "_DOT")
(COMMAND "-DIMSTYLE" "S" (STRCAT (GETVAR "DIMSTYLE") "$$7"))
(COMMAND "-DIMSTYLE" "R" (GETVAR "DIMSTYLE"))
(WHILE (> (GETVAR "CMDACTIVE") 0) (COMMAND "Y"))
))
(command "DIM1" "LEADER" p1 p2 ^C "_.TEXT" "M" (polar p2 (angle p1 p2) 10) 20 0 "0.0")
(setvar "CMDECHO" 1)
(princ)
)

lzg8877 · 发表于 2013-4-19 06:33:33

箭头和线拉不出来？为什么？　是不是我用的单位是毫米（mm）的原因

ZZXXQQ · 发表于 2013-4-19 08:22:57

沙发修理了。

chenbh2 · 发表于 2014-11-17 23:42:12

ZZXXQQ 发表于 2013-4-18 08:28

帮将箭头修改为圆实心，可以不？

ZZXXQQ · 发表于 2014-11-18 08:32:16

chenbh2 发表于 2014-11-17 23:42
帮将箭头修改为圆实心，可以不？

可以。沙发已更新。

chenbh2 · 发表于 2014-11-18 18:59:41

ZZXXQQ 发表于 2014-11-18 08:32
可以。沙发已更新。

谢谢楼主更新!

账号		自动登录	找回密码
密码			注册

[讨论] 再请帮忙，拉线写入文字（文字固定为0.0）