新图式围墙的问题交流

明镜亦非台

我写的lsp程序能解决这个问题。。



;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)
  )

zhuofeng41

{:soso_e163:} 送给11楼
高手，编程高手

试用方法：找一个另外的LSP程序（默认记事本的方式打开），把以前内容删掉，复制粘贴11楼的程序，保存，可另存命名为围墙的短线改成块，加载程序，命令为：x2k，选择对象，右键，OK

经试用，对于宽度0.3米以下的可行，可将短线改为方块，但方块大小固定的就是0.25*0.25，比如围墙画0.25宽，刚好填满2条围墙内外墙的线，如果画0.24宽，小方块还稍大些

对于0.4宽以上的围墙，不适用，如上操作后，短线消失也没有小方块出现

不知道按上面的操作画出来的跟新图示一样不？

我的想法是能不能定义线形，定义到CASS里，就如不依比例围墙一样，每次画依比例围墙，自动出来，正版的画出来应该不用这样调整呀？！

比如符号：露天的变电室，画出来的线就是带方块的？

heart

11楼的效果图
还需要改进

无奈オ浪迹

重生可行吗

无奈オ浪迹

重生可行吗

选择

首先加载443线型,画一依比例围墙,地物编辑里有"图型属性转换"--编码→线型,"单个处理",先输入144301,再输入443,然后编辑→删除实体所在编码

长江东去

咋我的2008不是你说的那种？

选择

此贴不能沉下去

选择

选择 发表于 2012-3-8 17:54
首先加载443线型,画一依比例围墙,地物编辑里有"图型属性转换"--编码→线型,"单个处理",先输入144301,再输入 ...

大家看下这样效果可行

选择

还有没有人来讨论这个帖子