{已解决}问个注记建筑物边长的问题
本帖最后由 a170285 于 2011-4-7 21:07 编辑请教下,怎么能让(setq bz (ssget))这句话只选取闭合的线????
还有就是用南方CASS里面的这个命令"BIANCHANG"注记边长,出来的边长字体大小为0.28呢?
我怎么弄都搞不明白..请教各位大大们
(defun c:11()
(setq cmdecho_bak (getvar "cmdecho")) ;;;备份响应变量
(setvar "cmdecho" 0) ;;;关闭响应变量
(setq bz (ssget '((0 . "lwpolyline");只
(-4 . "<or") ;选
(70 . 1) ;取
(70 . 129) ;闭合
(-4 . "or>")))) ;线
(repeat (setq len (sslength bz))
(setq te (ssname bz (setq len (1- len))))
(command "BIANCHANG" te "")
)
(setvar "cmdecho" cmdecho_bak) ;;;开启响应变量
)
不知道为什么我这样写如果超过2个封闭的多段线..CAD就会说.出现致命错误
Gu_xl 发表于 2011-4-7 18:54
回复 a170285 的帖子
老师你的这个不能框选多个闭合的多段线吗 回复 a170285 的帖子
(ssget '((0 . "lwpolyline")(-4 . "<or") (70 . 1)(70 . 129)(-4 . "or>")))
(ssget '((0 . "text") (40 . 0.28))) 回复 Gu_xl 的帖子
版主那个(-4 . "<or")(-4 . "or>")这个两个什么意思?????不懂.....
还有下面那句...我的意思是说..让"BIANCHANG"这个命令注记出来的数字大小是0.28喔..
不是选取 (70 . 1)不是就代表闭合的了吗？ 回复 snddd2000 的帖子
那怎么做菜能让他用了"BIANCHANG"这个命令后标记出来的数字大小是0.28呢? 回复 a170285 的帖子
cass没用过 回复 snddd2000 的帖子
那如果不用那个命令..那如何可以做到我所说的呢??
请指点下..谢谢 不知道为什么我这样写如果超过2个封闭的多段线..CAD就会说.出现致命错误
是因为你的"BIANCHANG"命令是注册的内部命令。没有解决之道
除非你知道"BIANCHANG"的函数，直接调用该函数，而不是用命令 回复 snddd2000 的帖子
那如果我不用那个命令..那我改怎么做到注记自己框选的闭合线的边长吗?
能指点下吗? 本帖最后由 Gu_xl 于 2011-4-7 20:58 编辑
回复 a170285 的帖子
(defun c:tt (/ obj pianju sHandlept np gx bj np xcrrcp n ang1 zjp ms AddText)
;;;构造text
(defun AddText (obj TextStringInsertionPointHeight xz kb qx Alignment style / obj1 err)
(setq obj1 (vla-addtext obj TextString(vlax-3d-point InsertionPoint)Height))
(vla-put-Rotation obj1 xz)
(vla-put-ScaleFactor obj1 kb)
(vla-put-ObliqueAngle obj1 qx)
(vla-put-alignment obj1 Alignment)
(if (/= Alignment acAlignmentLeft)
(vla-put-TextAlignmentPoint obj1 (vlax-3d-point InsertionPoint))
(vla-put-InsertionPoint obj1 (vlax-3d-point InsertionPoint))
)
(VL-CATCH-ALL-APPLY 'vla-put-StyleName (list obj1 style))
obj1
)
(setq pi2 (/ pi 2))
(setq ms (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))
(while (setq pen (car (entsel "\n选择多段线：")))
(setq bcHeight 0.28 ;_ 字高
kgb 0.8 ;_ 宽高比
Style "standard" ;_ 字体
ZJWS 2 ;_ 注记位数
DimScale 1 ;_ 边长尺度，若单位为mm,该值为1000
flag nil ;_ 标注在多段线走向的右侧,T 左侧
) ;_ setq
(setq pianju (* bcHeight 0.7)) ;_ 边长离线距离
(setq obj (vlax-ename->vla-object pen)
n 0)
(while (and (setq pt (vlax-curve-getPointAtParam obj n))
(setq np (vlax-curve-getPointAtParam obj (1+ n)))
) ;_ 结束and
(if (/= 0.0 (setq bugle (vla-GetBulge obj n)))
(progn
(setq midpt (vlax-curve-getPointAtParam obj (+ 0.5 n))
bj (* (atan (abs bugle)) 4)
xc (* 0.5 (distance Pt np))
gg (abs (* bugle xc))
rr (/ (+ (* xc xc) (* gg gg)) (* 2 gg))
ang1 (angle pt np)
cp (polar Pt ang1 xc)
cp (polar midpt (angle midpt cp) rr)
bc (rtos (/ (- (vlax-curve-getDistAtParam obj (1+ n)) (vlax-curve-getDistAtParam obj n)) DimScale) 2 ZJWS)
)
(if flag
(setq zjp (polar midpt (cond ((> bugle 0)(angle midpt cp))(t (anglecp midpt))) pianju))
(setq zjp(polar midpt (cond ((> bugle 0)(anglecp midpt))(t (angle midpt cp))) pianju))
)
(if (not (or (and (>= ang1 0) (< ang1 (* 0.666666 pi))) (and (> ang1 (* 1.666666 pi)) (< ang1 (* 2.0 pi)))))
(setq ang1 (- ang1 pi))
)
(AddText ms bczjpbcHeight ang1 kgb 0 acAlignmentMiddle Style)
);progn
(progn
(setq midpt (vlax-curve-getPointAtParam obj (+ 0.5 n))
ang1 (angle pt np)
bc (rtos (/ (- (vlax-curve-getDistAtParam obj (1+ n)) (vlax-curve-getDistAtParam obj n)) DimScale)2 ZJWS)
)
(if flag
(setq zjp (polar midpt (+ pi2 ang1) pianju))
(setq zjp (polar midpt (- ang1 pi2) pianju))
)
(if (not (or (and (>= ang1 0) (< ang1 (* 0.666666 pi))) (and (> ang1 (* 1.666666 pi)) (<= ang1 (* 2.0 pi)))))
(setq ang1 (- ang1 pi))
)
(AddText ms bczjpbcHeight ang1 kgb 0 acAlignmentMiddle Style)
);progn
) ;_ 结束if
(setq n (1+ n))
) ;_ 结束while
)
(princ)
)
页:
[1]
2