南方cass绘制围墙原理南方如何自己制作新的围墙符号,中间是小实心方块的那种
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/25 03:55:03
南方cass绘制围墙原理南方如何自己制作新的围墙符号,中间是小实心方块的那种
南方cass绘制围墙原理
南方如何自己制作新的围墙符号,中间是小实心方块的那种
南方cass绘制围墙原理南方如何自己制作新的围墙符号,中间是小实心方块的那种
看看是不是这个
cass9.0 围墙的短线改成块
(defun c:x2k ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget '((0 ."LINE"))))
(progn (setq i 0)
(repeat (sslength ss)
(setq ent (entget(ssname ss i))
p1 (cdr(assoc 10 ent))
p2 (cdr(assoc 11 ent))
ds (distance p1 p2)
ang (angle p1 p2))
(if (equal ds 0.25 0.1);;;;;;;此处的0.25表示将选择长度为0.25的直线处理.可改.;;;;;;;0.1表示长度误差.
(command ".INSERT" "gc002" (polar p1 ang (/ ds 2)) 0.25 0.25 (/ (* ang 180) pi)) )
(setq fang (entlast));加属性
(setq fc5 '("《 围墙小方块 》" (-3 ("SOUTH" (1000 ."144301-2")))))
(setq gxzb(entget fang))
(SETQ GXZB(subst (cons 8 "jmd") (assoc 8 GXZB) GXZB))
(entmod (append GXZB (cdr fc5)))
(command ".ERASE" (ssname ss i) "")
(setq i (1+ i)) ) ))
(setvar "CMDECHO" 1)
(princ)
)