怎样将不在随层的直线，全部随层？

zhuizhu

如题:我有很多的不是随层的直线，

想全部将其随层，方便统计，请问:要怎么样编程？谢谢

Lispboy

你想把什么随层？

炫翔

说清楚一点是不是颜色随层？
[pcode=lisp,true];颜色随层， by:炫翔
(defun c:xx (/ ss i elist)
  (setq i -1)
  (repeat (sslength (setq ss (ssget)))
    (entmod (subst
       '(62 . 256)
       (assoc 62 (setq elist (entget (ssname ss (setq i (1+ i))))))
       elist
     )
    )
  )
  (princ)
)[/pcode]

zhuizhu

Lispboy 发表于 2013-4-20 09:38

                               
登录/注册后可看大图

你想把什么随层？

线型，颜色、线宽

zhuizhu

炫翔 发表于 2013-4-20 09:48

                               
登录/注册后可看大图

说清楚一点是不是颜色随层？
;颜色随层， by:炫翔
(defun c:xx (/ ss i elist)

谢谢版主，能不能改成，颜色，线型，线宽一起随层？

炫翔

zhuizhu 发表于 2013-4-20 09:59

                               
登录/注册后可看大图

谢谢版主，能不能改成，颜色，线型，线宽一起随层？

[pcode=c,true](command "change" (SSGET) "" "p" "c" "bylayer" "lt" "bylayer" "lw" "bylayer" "") ;_颜色 线型 线宽 随层[/pcode]

Lispboy

zhuizhu 发表于 2013-4-20 09:59

                               
登录/注册后可看大图

谢谢版主，能不能改成，颜色，线型，线宽一起随层？

颜色、线型、线宽都BYLAYER时候的数据。

1. 
   
2. 命令: (entget e)
   
3. ((-1 . <图元名: 7ef7bf90>) (0 . "LINE") (330 . <图元名: 7ef7bcf8>) (5 . "F2")
   
4. (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (100 .
   
5. "AcDbLine") (10 764.954 613.662 0.0) (11 1101.05 740.1 0.0) (210 0.0 0.0 1.0))
   

复制代码

下面是线线型Continuous，颜色byblock，线宽0.13时候的数据。

1. 
   
2. 命令: (entget e)
   
3. ((-1 . <图元名: 7ef7bf90>) (0 . "LINE") (330 . <图元名: 7ef7bcf8>) (5 . "F2")
   
4. (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 .
   
5. "Continuous") (370 . 13) (100 . "AcDbLine") (10 764.954 613.662 0.0) (11
   
6. 1101.05 740.1 0.0) (210 0.0 0.0 1.0))
   

复制代码

你找到区别，就知道咋写了。

zhuizhu

Lispboy 发表于 2013-4-20 10:09

                               
登录/注册后可看大图

颜色、线型、线宽都BYLAYER时候的数据。下面是线线型Continuous，颜色byblock，线宽0.13时候 ...

谢谢，提供资料，可是线宽的组码要怎么样操作呢？

zhuizhu

炫翔 发表于 2013-4-20 10:09

                               
登录/注册后可看大图

(command "change" (SSGET) "" "p" "c" "bylayer" "lt" "bylayer" "lw" "bylayer" "") ;_颜色 线型 线宽 随 ...

谢谢翔哥，这种想法可以实现，我先用着，是否可以用上面你用的那样，
用组码的方式实现呢？

炫翔

zhuizhu 发表于 2013-4-20 10:35

                               
登录/注册后可看大图

谢谢翔哥，这种想法可以实现，我先用着，是否可以用上面你用的那样，
用组码的方式实现呢？

其他的都可以，
线宽的370还没有想到办法

Free-Lancer

[pcode=lisp,true](vl-load-com)
(defun c:tt (/ ss)
  (if (setq ss (ssget))
    (vlax-for obj (vla-get-activeselectionset
                    (vla-get-activedocument (vlax-get-acad-object))
                  )
      (vlax-put obj 'Color acBylayer)
      (vlax-put obj 'Linetype acBylayer)
      (vlax-put obj 'Lineweight acLnWtBylayer)
    )
  )
  (princ)
)
(defun c:tt1 (/ ss sl i e el)
  (if (setq ss (ssget))
    (progn
      (setq sl (sslength ss)
            i  -1
      )
      (repeat sl
        (setq e         (ssname ss (setq i (1+ i)))
              el (entget e)
        )
        (setq el (subst        '(62 . 256)
                        (assoc 62 el)
                        el
                 )
              el (subst        '(6 . "bylayer")
                        (assoc 6 el)
                        el
                 )
              el (subst        '(370 . -1)
                        (assoc 370 el)
                        el
                 )
        )
        (entmod el)
      )
    )
  )
  (princ)
)[/pcode]

Lispboy

zhuizhu 发表于 2013-4-20 10:34

                               
登录/注册后可看大图

谢谢，提供资料，可是线宽的组码要怎么样操作呢？

将370组码宽度设置为-1

试试：

[pcode=lisp,true]
(defun c:tt( / e ed n370 o370)
    (if (setq e (car (entsel "\n拾取线:<退出>")))
       (progn
          (setq ed (entget e))
          (setq o370 (assoc 370 ed))
          (setq n370 '(370 . -1))
          (setq ed (subst n370 o370 ed))
          (entmod ed)
       )
    )
    (princ)
)
[/pcode]

zhuizhu

Lispboy 发表于 2013-4-20 15:18

                               
登录/注册后可看大图

将370组码宽度设置为-1

试试：

谢谢，学习了，原来是370的默认是-1 啊！

Lispboy

zhuizhu 发表于 2013-4-20 15:36

                               
登录/注册后可看大图

谢谢，学习了，原来是370的默认是-1 啊！

-2 byblock
其他不在合理范围内的数，“默认”。

cuyongping

学习学习！