好长时间没发铁了，现在发一个铁，

357785513 · 发表于 2014-9-3 19:57:17

各位高手，有没有什么办法画LINE线时在LINE线的两端各加上一个块，画连续直线时就连续加，保证每画一根直线两端都有一个块，有什么办法不，

langjs · 发表于 2014-9-3 20:09:20

本帖最后由 langjs 于 2014-9-3 20:24 编辑

好长时间煤灰铁了

(defun C:aa (/ pt1 pt2)
  (setq pt1 (getpoint "\n指定第一点:"))
  (entmake (list '(0 . "INSERT") (cons 2 "块名") (cons 10 pt1)))
  (while (setq pt2 (getpoint pt1 "\n指定下一点:"))
(entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
(entmake (list '(0 . "INSERT") (cons 2 "块名") (cons 10 pt2)))
(setq pt1 pt2)
  )
  (princ)
)

357785513 · 发表于 2014-9-3 22:25:38

好像只可以画线，高人

AbnerXk · 发表于 2014-9-3 22:26:03

我也煤革铁，给楼上赞一下...

bai2000 · 发表于 2014-9-3 22:26:50

楼上的，怎么用不了啊

1993063 · 发表于 2014-9-4 07:55:16

没指定块名

bai2000 · 发表于 2014-9-4 10:14:21

langjs 发表于 2014-9-3 20:09
好长时间煤灰铁了

(defun C:aa (/ pt1 pt2)

(defun C:aa (/ pt1 pt2)
  (setq pt1 (getpoint "\n指定第一点:"))
  (entmake (list '(0 . "INSERT") (cons 2 "hg1") (cons 10 pt1)))
  (while (setq pt2 (getpoint pt1 "\n指定下一点:"))
(entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
(entmake (list '(0 . "INSERT") (cons 2 "hg1") (cons 10 pt2)))
(setq pt1 pt2)
  )
  (princ)
)

怎么还是只能画直线，HG1是块名

357785513 · 发表于 2014-9-6 16:25:28

不行唉，你们的可以不

VBALISPER · 发表于 2014-9-6 17:21:25

我晕,给我发两斤铁,我卖了买馒头吃.

bai2000 · 发表于 2014-10-1 14:21:20

哪位大神，改改这个啊，用途挺广的

账号		自动登录	找回密码
密码			注册

[基础] 好长时间没发铁了，现在发一个铁，

点评