请教一下各位如何才能实现标注的修改

HORSE_XU · 发表于 2013-5-22 23:40:04

Lispboy 发表于 2013-5-22 23:35
组吗50 得到转角，根据P13用 POLAR 距离角度算出 P14，修改后，两边的尺寸界线就一齐了。

貌似标注没有50这个祖玛吧？

HORSE_XU · 发表于 2013-5-22 23:43:27

Lispboy 发表于 2013-5-22 23:35
组吗50 得到转角，根据P13用 POLAR 距离角度算出 P14，修改后，两边的尺寸界线就一齐了。

刚才说错了，它是有50这个祖玛，但它一直都是0撒

cy956 · 发表于 2013-5-23 00:21:30

HORSE_XU 发表于 2013-5-22 21:43
刚才说错了，它是有50这个祖玛，但它一直都是0撒

线性标注尺寸取dxf50，对齐标注尺寸取(angle p13 p14)

zxq0220 · 发表于 2013-5-23 08:11:09

本帖最后由 zxq0220 于 2013-5-23 08:16 编辑

;;;编写: BDYCAD
;;;时间: 2005-03-18
;;;开发用时 26分钟
;;;功能: 尺寸驱动
(defun c:tt(/ BLB EP ESPL N-EP N-SP NEW-T SD SD-DXF SEA SEB SP SS1 SS2 SS3)
(setq SD (entsel "\n选择驱动尺寸:"))
(if SD
(PROGN
(SETQ SD-DXF (ENTGET (CAR SD)))
(WHILE (NOT (wcmatch (CDR (ASSOC 0 SD-DXF)) "*DIM*"))
(setq SD (entsel "\n选择驱动尺寸:"))
(SETQ SD-DXF (ENTGET (CAR SD))))
(SETQ SP (CDR (ASSOC 13 SD-DXF))
EP (CDR (ASSOC 14 SD-DXF))
ESPL (DISTANCE SP EP)
SEA (ANGLE SP EP)
SEB (ANGLE EP SP)
NEW-T (getdist "\n新的长度:"))
(while (eq nil NEW-T)
(setq NEW-T (getdist "\n新的长度:")))
(if NEW-T
(progn
(setq BLB (* 0.5 (abs (- NEW-T ESPL))))
(if (> ESPL NEW-T )
(setq N-SP (POLAR SP SEA BLB)
N-EP (POLAR EP (+ PI SEA) BLB))
(setq N-SP (POLAR SP SEB BLB)
N-EP (POLAR EP (+ PI SEB) BLB))
)
(setvar "osmode" (logior (getvar "osmode") 16384))
(setvar "cmdecho" 0)
(vl-cmdf "_.undo" "_group")
(SETQ SS1 (SSGET "C" (POLAR SP (+ PI (* 0.25 PI)) 0.4)(POLAR SP (* 0.25 PI) 0.4))
SS2 (SSGET "C" (POLAR EP (+ PI (* 0.25 PI)) 0.4)(POLAR EP (* 0.25 PI) 0.4))
)
(IF SS1
(COMMAND "STRETCH" (SSGET "C" (POLAR SP (+ PI (* 0.25 PI)) 0.4)(POLAR SP (* 0.25 PI) 0.4))
""SP N-SP))
(IF SS2
(COMMAND "STRETCH" (SSGET "C" (POLAR EP (+ PI (* 0.25 PI)) 0.4)(POLAR EP (* 0.25 PI) 0.4))
""EP N-EP))
(vl-cmdf "_.undo" "_end")
(setvar "osmode" (logand (getvar "osmode") 49151))
(PRINC"\n编写:BDYCAD\n尺寸驱动程序运行完毕, 欢迎使用.谢谢!")))
)
)
(princ)
)

;;;编写: BDYCAD 
;;;时间: 2005-03-18 
;;;开发用时 26分钟 
;;;功能: 尺寸驱动 
(defun c:tt(/ BLB EP ESPL N-EP N-SP NEW-T SD SD-DXF SEA SEB SP SS1 SS2 SS3) 
(setq SD (entsel "\n选择驱动尺寸:")) 
(if SD 
(PROGN 
(SETQ SD-DXF (ENTGET (CAR SD))) 
(WHILE (NOT (wcmatch (CDR (ASSOC 0 SD-DXF)) "*DIM*")) 
(setq SD (entsel "\n选择驱动尺寸:")) 
(SETQ SD-DXF (ENTGET (CAR SD)))) 
(SETQ SP (CDR (ASSOC 13 SD-DXF)) 
EP (CDR (ASSOC 14 SD-DXF)) 
ESPL (DISTANCE SP EP) 
SEA (ANGLE SP EP) 
SEB (ANGLE EP SP) 
NEW-T (getdist "\n新的长度:")) 
(while (eq nil NEW-T) 
(setq NEW-T (getdist "\n新的长度:"))) 
(if NEW-T 
(progn 
(setq BLB (* 0.5 (abs (- NEW-T ESPL)))) 
(if (> ESPL NEW-T ) 
(setq N-SP (POLAR SP SEA BLB) 
N-EP (POLAR EP (+ PI SEA) BLB)) 
(setq N-SP (POLAR SP SEB BLB) 
N-EP (POLAR EP (+ PI SEB) BLB)) 
) 
(setvar "osmode" (logior (getvar "osmode") 16384)) 
(setvar "cmdecho" 0) 
(vl-cmdf "_.undo" "_group") 
(SETQ SS1 (SSGET "C" (POLAR SP (+ PI (* 0.25 PI)) 0.4)(POLAR SP (* 0.25 PI) 0.4)) 
SS2 (SSGET "C" (POLAR EP (+ PI (* 0.25 PI)) 0.4)(POLAR EP (* 0.25 PI) 0.4)) 
) 
(IF SS1 
(COMMAND "STRETCH" (SSGET "C" (POLAR SP (+ PI (* 0.25 PI)) 0.4)(POLAR SP (* 0.25 PI) 0.4)) 
""SP N-SP)) 
(IF SS2 
(COMMAND "STRETCH" (SSGET "C" (POLAR EP (+ PI (* 0.25 PI)) 0.4)(POLAR EP (* 0.25 PI) 0.4)) 
""EP N-EP)) 
(vl-cmdf "_.undo" "_end") 
(setvar "osmode" (logand (getvar "osmode") 49151)) 
(PRINC"\n编写:BDYCAD\n尺寸驱动程序运行完毕, 欢迎使用.谢谢!"))) 
) 
) 
(princ) 
)

2012淡然之马 · 发表于 2013-5-23 08:34:14

这个对我来说，用不到，不过
支持一下

Free-Lancer · 发表于 2013-5-23 11:38:31

[pcode=lisp,true](defun c:tt (/ e el nl l p1 p2 obj bn an p13 p14)
  (while (and (setq e (car (entsel "\nSelect Dim: ")))
   (= (cdr (assoc 0 (setq el (entget e)))) "DIMENSION")
   (setq nl (getdist "\nNew Length: "))
   (not (zerop nl))
  )
(setq obj (vlax-ename->vla-object e)
bn  (vla-get-objectname obj)
p1  (cdr (assoc 13 el))
p2  (cdr (assoc 14 el))
l (cdr (assoc 42 el))
)
(cond
   ((= bn "AcDbAlignedDimension")
   (setq p13 (polar p1 (angle p2 p1) (* (- nl l) 0.5))
   p14 (polar p2 (angle p1 p2) (* (- nl l) 0.5))
   )
   )
   ((= bn "AcDbRotatedDimension")
   (setq an  (cdr (assoc 50 el))
   p13 (polar p1 (+ an pi) (* (- nl l) 0.5))
   p14 (polar p2 an (* (- nl l) 0.5))
   )
   )
   (t)
)
(setq el (subst (cons 13 p13) (assoc 13 el) el)
el (subst (cons 14 p14) (assoc 14 el) el)
)
(entmod el)
  )
  (princ)
)[/pcode]

HORSE_XU · 发表于 2013-5-23 12:22:53

zxq0220 发表于 2013-5-23 08:11

哎哟，真感谢这位大神的程序，功能能实现了，不过我还得改改，真的很感谢，非常感谢，继续支持~！

HORSE_XU · 发表于 2013-5-23 12:49:26

Free-Lancer 发表于 2013-5-23 11:38
(defun c:tt (/ e el nl l p1 p2 obj bn an p13 p14)
(while (and (setq e (car (entsel "\nSelect Dim: ...

这位大神的代码哏简单明了，学习了，真的很感谢各位的热心帮忙！

Free-Lancer · 发表于 2013-5-23 13:11:24

改好后贴上来和大家分享分享来自: Android客户端

HORSE_XU · 发表于 2013-5-23 14:40:31

Free-Lancer 发表于 2013-5-23 13:11
改好后贴上来和大家分享分享

没问题，在改着呢

HORSE_XU · 发表于 2013-5-25 11:13:20

2012淡然之马发表于 2013-5-23 08:34
这个对我来说，用不到，不过
支持一下

free-lancer大神，我对你的代码进行了深入修改，你的代码里对于线性标注的自行判断存在一个条件限制，就是当用户从右往左（左撇子）拉取的时候，它不能改变，所以我对这一段进行了一个预前角度判断，下面分享下代码，说明一下，变量ty13 ty14 ty42 ty50分别表示祖玛为13 14 42 50的元素属性。
[pcode=lisp,true] (= vlx_name "AcDbRotatedDimension")
(progn
(setq ty13 (cdr (assoc 13 ele_im)))
(setq ty14 (cdr (assoc 14 ele_im)))
(setq ty42 (cdr (assoc 42 ele_im)))
(setq ty50 (cdr (assoc 50 ele_im)))
(setq e_dis (/ ty42 e_acc))
(setq ty13x (car ty13))
(setq ty14x (car ty14))
(setq ty13y (cadr ty13))
(setq ty14y (cadr ty14))
(setq 1-2y (/ pi 2))
(cond
(
(and (/= ty50 nil) (= ty50 0))
(cond
(
(/= ty13y ty14y)
(setq ty141 (list ty14x ty13y))
)
(
(= ty13y ty14y)
(setq ty141 (list ty14x ty14y))
)
)
)
(
(and (/= ty50 nil) (= ty50 1-2y))
(cond
(
(/= ty13x ty14x)
(setq ty141 (list ty13x ty14y))
)
(
(= ty13x ty14x)
(setq ty141 (list ty14x ty14y))
)
)
)
)
(setq ty14-01 (polar ty13 (angle ty13 ty141) e_dis))
(setq ele_im (subst (cons 14 ty14-01) (assoc 14 ele_im) ele_im))
(setq last_ele (entmod ele_im))
(setq last_name (cdr (assoc -1 last_ele)))[/pcode]

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

[求助] 请教一下各位如何才能实现标注的修改

评分

评分