批量给矩形加上对角线(多段线)

juliana207

请问各位老师, 有这样的lisp 程序吗? 谢谢

guosheyang

(defun c:tt(/ I LST LST1 LST2 PT SS)
  (setq ss(ssget))
  (defun ff(lst)
        (entmakex (append (list '(0 . "LWPOLYLINE")
        '(100 . "AcDbEntity")
        '(100 . "AcDbPolyline")
        '(62 . 0)
        (cons 90 (length lst))
        (cons 70 0)
        )
        (mapcar '(lambda (pt) (cons 10 pt)) lst)
      )
  ))
  (repeat(setq i(sslength ss))
    (setq lst(mapcar 'cdr(vl-remove-if-not '(lambda(x)(=(car x) 10)) (entget(ssname ss(setq i(1- i)))))))
     (setq lst1(list(car lst ) (caddr lst )))
     (setq lst2(list(cadr lst )(cadddr lst )))
     (ff lst1) (ff lst2)
  )
  (princ)
)

juliana207

guosheyang 发表于 2024-5-16 00:46
(defun c:tt(/ I LST LST1 LST2 PT SS)
  (setq ss(ssget))
  (defun ff(lst)

非常感谢及时的答复, 生成的多段线好像只能是 0 图层, 可以帮忙改成生成当前的图层吗?

weimeng555

juliana207 发表于 2024-5-16 11:59
非常感谢及时的答复, 生成的多段线好像只能是 0 图层, 可以帮忙改成生成当前的图层吗?

刚测试了，不是能生成当前图层的多段线吗？

guosheyang

juliana207 发表于 2024-5-16 11:59
非常感谢及时的答复, 生成的多段线好像只能是 0 图层, 可以帮忙改成生成当前的图层吗?

自己手动线设置好当前层 就可以

juliana207

guosheyang 发表于 2024-5-16 14:06
自己手动线设置好当前层 就可以

抱歉我看错了. 图层是当前, 不过是随块的, 看上去是白色 我以为是0图层,  要是随层的颜色就好了

mercio

juliana207 发表于 2024-5-16 15:13
抱歉我看错了. 图层是当前, 不过是随块的, 看上去是白色 我以为是0图层,  要是随层的颜色就好了

'(62 . 0)改成'(62 . 256)，试试

juliana207

mercio 发表于 2024-5-24 17:58
'(62 . 0)改成'(62 . 256)，试试

可以了.非常感谢