如何标注图形的弧长呢

世人皆醉 · 发表于 2023-3-26 11:57

代码如下

(defun c:y2()
(setq pt0(getpoint "插入点"))
(setq p1(list(+ (car pt0) 300) (+ (cadr pt0) 300)))
(setq p2(list(+ (car pt0) 300) (- (cadr pt0) 300)))
(command "arc" "c" pt0 p1 p2 )
(setq d1(entlast))
(Command "dimarc" d1 p1 ))

实际画出来的圆弧没有标注，有没有大佬可以帮忙改下，麻烦了

xyp1964 · 发表于 2023-3-26 11:57

(defun c:tt ()
(if (setq pt0 (getpoint "\n插入点: "))
(progn
(setq p1 (list (+ (car pt0) 300) (+ (cadr pt0) 300)))
(setq p2 (list (+ (car pt0) 300) (- (cadr pt0) 300)))
(command "arc" "c" pt0 p1 p2)
(setq s1 (entlast))
(Command "dimarc" (list s1 p1) p1)
)
)
(princ)
)

guosheyang · 发表于 2023-3-26 12:14

(Command-s "dimarc" d1(polar p1(angle (cdr(assoc 10(entget(entlast))))p1)(*(cdr(assoc 40(entget(entlast))))0.25)))

guosheyang · 发表于 2023-3-26 12:17

最后一句这样改试下

cchessbd · 发表于 2023-3-26 13:47

你这应该是没有关闭捕捉。关闭了再试试看！

ssyfeng · 发表于 2023-3-26 14:06

试试这样行不行：
(defun c:y2(/ d1 last0 os p1 p2 pt0)
(setq last0 (entlast)
os (getvar "OSMODE")
)
(setq pt0(getpoint "插入点"))
(setvar "OSMODE" 16384)
(setq p1(list(+ (car pt0) 300) (+ (cadr pt0) 300)))
(setq p2(list(+ (car pt0) 300) (- (cadr pt0) 300)))
(vl-cmdf "arc" "c" pt0 p1 p2)
(if (null (equal last0 (setq d1 (entlast))))
(vl-cmdf "dimarc" d1 p1)
)
(setvar "OSMODE" os)
(princ)
)

世人皆醉 · 发表于 2023-3-27 08:18

ssyfeng 发表于 2023-3-26 14:06
试试这样行不行：
(defun c:y2(/ d1 last0 os p1 p2 pt0)
(setq last0 (entlast)

也是不行的

世人皆醉 · 发表于 2023-3-27 08:22

guosheyang 发表于 2023-3-26 12:14
(Command-s "dimarc" d1(polar p1(angle (cdr(assoc 10(entget(entlast))))p1)(*(cdr(assoc 40(entget(entl ...

测试了还是一样，没有标注的

世人皆醉 · 发表于 2023-3-27 08:25

cchessbd 发表于 2023-3-26 13:47
你这应该是没有关闭捕捉。关闭了再试试看！

增加了关闭对象捕捉也是没有用的

ssyfeng · 发表于 2023-3-27 10:07

那就用entmake生成吧

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

[提问] 如何标注图形的弧长呢

最佳答案

本帖子中包含更多资源