明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 720|回复: 2

[提问] 请教关于倒角标注的改进

[复制链接]
发表于 2018-4-17 14:46 | 显示全部楼层 |阅读模式
5明经币
下面是根据Z大的程序改的,可以实现非45°倒角标注。
现在有一个小问题,在标45°线的时候,还要右键确认一下,能否把右键确认这一步去掉呢?在此先谢过了
;倒角标注
(defun c:13()
(setvar "cmdecho" 0)
(princ "\n请选择一条直线:")
(setq ss (ssget":e:s" '((0 . "line"))))
(if (= ss nil)
(progn (setq hou "禁止倒角")(pdbz))
(progn
(setvar 'osmode 0)  ;关闭捕捉
(setq dl (entget (ssname ss 0))
      p1 (cdr (assoc 10 dl))
      p2 (cdr (assoc 11 dl))
       x (abs (- (car p1) (car p2)))
       y (abs (- (cadr p1) (cadr p2))))
(if (equal x y 1e-4)
(progn
(princ (rtos x 2 3))
(setq tt (getstring tt)
tt (if (= tt "") (rtos x 2 3) tt)
tt (strcat tt "*45%%D")
p4 (polar p1 (angle p1 p2) (* (distance p1 p2) 0.5)))
(setq ang (/ pi 4))
(if (setq p3 (getpoint p4 "\n请确定文字位置:"))
(command "leader" p4 p3 "" "" "" tt "") ) )
(command "dimlinear" p1 p2 "\\" "dimlinear" p1 p2)
)
(setvar 'osmode 1)  ;打开捕捉
) )
(princ))

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

最佳答案

查看完整内容

;倒角标注 (defun c:13() (setvar "cmdecho" 0) (princ "\n请选择一条直线:") (setq ss (ssget":e:s" '((0 . "line")))) (if (= ss nil) (progn (setq hou "禁止倒角")(pdbz)) (progn (setvar 'osmode 0) ;关闭捕捉 (setq dl (entget (ssname ss 0)) p1 (cdr (assoc 10 dl)) p2 (cdr (assoc 11 dl)) x (abs (- (car p1) (car p2))) y (abs (- (cadr p1) (cadr p2)))) (if (e ...
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2018-4-17 14:46 | 显示全部楼层
本帖最后由 bssurvey 于 2018-4-17 16:06 编辑

;倒角标注
(defun c:13()
(setvar "cmdecho" 0)
(princ "\n请选择一条直线:")
(setq ss (ssget":e:s" '((0 . "line"))))
(if (= ss nil)
(progn (setq hou "禁止倒角")(pdbz))
(progn
(setvar 'osmode 0)  ;关闭捕捉
(setq dl (entget (ssname ss 0))
       p1 (cdr (assoc 10 dl))
       p2 (cdr (assoc 11 dl))
        x (abs (- (car p1) (car p2)))
        y (abs (- (cadr p1) (cadr p2))))
(if (equal x y 1e-4)
(progn
  (setq tt (strcat (rtos x 2 3) "*45%%D")
p4 (polar p1 (angle p1 p2) (* (distance p1 p2) 0.5)))
(setq ang (/ pi 4))
(if (setq p3 (getpoint p4 "\n请确定文字位置:"))
(command "leader" p4 p3 "" "" "" tt "") ) )
(command "dimlinear" p1 p2 "\\" "dimlinear" p1 p2)
)
(setvar 'osmode 1)  ;打开捕捉
) )
(princ))
回复

使用道具 举报

 楼主| 发表于 2018-4-17 16:10 | 显示全部楼层
bssurvey 发表于 2018-4-17 14:46
;倒角标注
(defun c:13()
(setvar "cmdecho" 0)

非常好用,谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 08:48 , Processed in 0.211293 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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