664571221 发表于 2020-7-30 09:24:26

各位大神看下 这个画线的程序 我想给他加上图层为 花坛名称如何弄

(defun c:60x(/ BAK_CECOLOR BAK_WIDTH P P0)
(if (setq p0(getpoint "\n指定第一点: "))
    (progn
      (setq bak_width(getvar "PLINEWID"))
      (setq bak_cecolor(getvar 'cecolor))
      (setvar 'cecolor "211")
      (setvar "PLINEWID" 60)
      (setvar "cmdecho" 0)
      (command "pline" p0)
      (while(setq p(getpoint p0 "\r指定下一点: "))
        (command p)
        (setq p0 p)
        )
      (command "")
      (and bak_width (setvar "PLINEWID" bak_width))
      (and bak_cecolor (setvar 'cecolor bak_cecolor))
      (setvar "cmdecho" 1)
      )
    )
(princ)
)

start4444 发表于 2020-7-30 12:07:45

(command "") 后面加(command "change" (entlast) "" "p" "la" "花坛名称" "")

664571221 发表于 2020-7-30 14:24:27

start4444 发表于 2020-7-30 12:07
(command "") 后面加(command "change" (entlast) "" "p" "la" "花坛名称" "")

你好我改了后好像不是图层的花坛线

664571221 发表于 2020-7-30 14:28:26

start4444 发表于 2020-7-30 12:07
(command "") 后面加(command "change" (entlast) "" "p" "la" "花坛名称" "")

原来图层没有的 我希望画的时候新建图层

Sonnenblumen 发表于 2020-7-30 15:26:11

(defun c:60x(/ BAK_CECOLOR BAK_WIDTH P P0)
(if (setq p0(getpoint "\n指定第一点: "))
    (progn
      (setq bak_width(getvar "PLINEWID"))
      (setq bak_cecolor(getvar 'cecolor))
      (setvar 'cecolor "211")
      (setvar "PLINEWID" 60)
      (setvar "cmdecho" 0)
      (command "pline" p0)
      (while(setq p(getpoint p0 "\r指定下一点: "))
      (command p)
      (setq p0 p)
                        )
      (command "")
      (and bak_width (setvar "PLINEWID" bak_width))
      (and bak_cecolor (setvar 'cecolor bak_cecolor))
                        (if (tblsearch "layer" "花坛名称") "" (command "layer" "New" "花坛名称" ""))
                        (command "change" (entlast) "" "P" "la" "花坛名称" "")
      (setvar "cmdecho" 1)
                )
        )
(princ)
)

664571221 发表于 2020-7-30 16:32:32

Sonnenblumen 发表于 2020-7-30 15:26


你好能不能把图层颜色设置为前面设置前来的线的颜色啊

Sonnenblumen 发表于 2020-7-30 18:47:49

664571221 发表于 2020-7-30 16:32
你好能不能把图层颜色设置为前面设置前来的线的颜色啊

实在没看懂你在说什么

664571221 发表于 2020-7-31 08:37:42

Sonnenblumen 发表于 2020-7-30 18:47
实在没看懂你在说什么

你好前面不是把线颜色设置为211了，就是新建的这个画坛的图层的颜色也设置为211

bssurvey 发表于 2020-7-31 09:28:02

664571221 发表于 2020-7-31 08:37
你好前面不是把线颜色设置为211了，就是新建的这个画坛的图层的颜色也设置为211

(command "layer" "New" "花坛名称" "C" "211" "花坛名称" "")
页: [1]
查看完整版本: 各位大神看下 这个画线的程序 我想给他加上图层为 花坛名称如何弄