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

664571221

(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

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

664571221

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

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

664571221

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

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

Sonnenblumen

2. (defun c:60x(/ BAK_CECOLOR BAK_WIDTH P P0)
   
3.   (if (setq p0(getpoint "\n指定第一点: "))
   
4.     (progn
   
5.       (setq bak_width(getvar "PLINEWID"))
   
6.       (setq bak_cecolor(getvar 'cecolor))
   
7.       (setvar 'cecolor "211")
   
8.       (setvar "PLINEWID" 60)
   
9.       (setvar "cmdecho" 0)
   
10.       (command "pline" p0)
    
11.       (while(setq p(getpoint p0 "\r指定下一点: "))
    
12.         (command p)
    
13.         (setq p0 p)
    
14.                         )
    
15.       (command "")
    
16.       (and bak_width (setvar "PLINEWID" bak_width))
    
17.       (and bak_cecolor (setvar 'cecolor bak_cecolor))
    
18.                         (if (tblsearch "layer" "花坛名称") "" (command "layer" "New" "花坛名称" ""))
    
19.                         (command "change" (entlast) "" "P" "la" "花坛名称" "")
    
20.       (setvar "cmdecho" 1)
    
21.                 )
    
22.         )
    
23.   (princ)
    
24. )

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

664571221

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

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

Sonnenblumen

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

实在没看懂你在说什么

664571221

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

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

bssurvey

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

(command "layer" "New" "花坛名称" "C" "211" "花坛名称" "")