树櫴希德 发表于 2018-4-22 19:10:38

标注180.LSP


;;;;;;;;;;;;;;;;;;
(defun 10zu ( e / e)
(cdr(assoc 51(entget e)))
)
;;;;;;;;;;;;;;;;;;


(defun c:tt11 ( / lst ent pts pt demj zmj i) ;求平均数
(setq lst (ssget '((0 . "DIMENSION") (8 . "占地图标注")   )   ))

(setq i 0)
;(setq zmj 0.000)

(while(< i (sslength lst))

(setq ent (ssname lst i))
(entmod (subst (cons 51 (+ pi(10zu ent))) (assoc 51(entget ent)) (entget ent)   ))

(setq i (+ i 1))
)
)

xj6019 发表于 2020-10-26 18:49:38

有句古话：踏破铁鞋无觅处......

pengfei2010 发表于 2018-4-23 17:22:42

楼主 这是要干嘛呢？是要求助还是 分享

yoyoho 发表于 2018-7-28 08:12:11

感谢 树櫴希德 分享程序!!!!

happy336 发表于 2019-10-15 13:31:42

谢谢分享，支持

dasha321 发表于 2021-6-25 00:00:38

这是用来做啥的啊，

ajunseo 发表于 2021-7-29 19:47:02

有句古话：踏破铁鞋无觅处......

meja 发表于 2023-8-5 19:17:36

强制有些标注的数字朝向某个方向

树櫴希德 发表于 2023-8-25 19:39:01

;|
标注斜距离
|;
(defun c:t11t(/ dis en pt1 pt2)
    (setq pt1 (getpoint "\n标注第一点:")
          pt2 (getpoint pt1 "\n标注第二点:")
          dis (rtos (distance pt1 pt2) 2 3))
    (command "_.dimaligned" pt1 pt2 pause)
    (setq en (entget (entlast))
          en (subst (cons 1 dis) (assoc 1 en) en))
    (entmod en))

wline 发表于 2024-7-3 09:45:06

有用，插眼，需要再过来
页: [1]
查看完整版本: 标注180.LSP