根据图形比例，按固定距离画花圃单个符号，已解决。。。

zhb236623

2. (defun c:hp()
   
3. (setvar "CMDECHO" 0)
   
4. (setq blc_cass7 (getvar "userr1"))
   
5. (cond  (  ( = blc_cass7 500)
   
6.            (princ "比例尺,,,,,为500")
   
7.            (setq nn 0.5)
   
8.          )
   
9.    
   
10.    
    
11.       (  ( = blc_cass7 200)
    
12.      (princ "比例尺,,,,,为200")
    
13.            (setq nn 0.2)
    
14.    )
    
15.    
    
16.    
    
17.    (  ( = blc_cass7 1000)
    
18.              (setq nn 1)
    
19.      (princ)
    
20.    )
    
21.    
    
22.   (  (and ( /= blc_cass7 500)  ( /= blc_cass7 200)  ( /= blc_cass7 1000))
    
23.     (princ "比例尺不为1：500，1：200，1：1000请检查比例尺设置，程序将退出。")
    
24.     (exit)
    
25.   )
    
26. (princ "程序正常运行")
    
27. (princ)
    
28. )
    
29. (if (= (tblobjname "layer" "ZBTZ_tmp") nil)
    
30. (progn
    
31.   (princ "图层ZBTZ_tmp不存在，新建图层ZBTZ_tmp完成，导入数据将存放在ZBTZ_tmp层")
    
32.   (command ".layer" "n" "ZBTZ_tmp" "s" "ZBTZ_tmp" "")
    
33.   
    
34. )
    
35. (progn
    
36. (command "layer" "s" "ZBTZ_tmp" "")
    
37.   (princ "ZBTZ_tmp图层已存在，导入数据将存放在ZBTZ_tmp层，完成导入")
    
38. )
    
39. )
    
40. 
    
41. (setq s1 (ssget '((0 . "LWPOLYLINE"))))
    
42. (command "measure" s1 10)
    
43. (if (setq ss (ssget "P" '((0 . "POINT"))))
    
44. (progn
    
45.   (setq i 1)
    
46.   (setq pt (cdr(assoc 10 (entget(ssname ss 0)))))
    
47.   (command "insert" "gc124" pt nn nn "0" )
    
48.   (repeat (1- (sslength ss))
    
49.    (setq pt (cdr(assoc 10 (entget(ssname ss i)))) i (1+ i))
    
50.    (command "insert" "gc124" pt nn nn "0" )
    
51.   )
    
52.    (princ)
    
53. )
    
54. )
    
55. (command "erase" ss "")
    
56. 
    
57. (setq tttc (ssget "X" '((8 . "ZBTZ_tmp"))))    ;;选择ZBTZ_tmp图层所有元素。
    
58. (command "putp" "c"  "215401" tttc "")     ;;;;这里"215401"要加引号，不加好像不行
    
59. ;(command "change" tttc "" "p" "la" "ZBTZ_tmp" "")
    
60. 
    
61. (setvar "CMDECHO" 1)
    
62. (princ)
    
63. 
    
64. )

(defun c:hp()<br /> (setvar "CMDECHO" 0)<br /> (setq blc_cass7 (getvar "userr1"))<br /> (cond  (  ( = blc_cass7 500)<br />            (princ "比例尺,,,,,为500")<br />            (setq nn 0.5)<br />          )<br />    <br />    <br />       (  ( = blc_cass7 200)<br />      (princ "比例尺,,,,,为200")<br />            (setq nn 0.2)<br />    )<br />    <br />    <br />    (  ( = blc_cass7 1000)<br />              (setq nn 1)<br />      (princ)<br />    )<br />    <br />   (  (and ( /= blc_cass7 500)  ( /= blc_cass7 200)  ( /= blc_cass7 1000))<br />     (princ "比例尺不为1：500，1：200，1：1000请检查比例尺设置，程序将退出。")<br />     (exit)<br />   )<br /> (princ "程序正常运行")<br /> (princ)<br /> )<br /> (if (= (tblobjname "layer" "ZBTZ_tmp") nil)<br /> (progn<br />   (princ "图层ZBTZ_tmp不存在，新建图层ZBTZ_tmp完成，导入数据将存放在ZBTZ_tmp层")<br />   (command ".layer" "n" "ZBTZ_tmp" "s" "ZBTZ_tmp" "")<br />   <br /> )<br /> (progn<br /> (command "layer" "s" "ZBTZ_tmp" "")<br />   (princ "ZBTZ_tmp图层已存在，导入数据将存放在ZBTZ_tmp层，完成导入")<br /> )<br /> )<br /> <br /> (setq s1 (ssget '((0 . "LWPOLYLINE"))))<br /> (command "measure" s1 10)<br /> (if (setq ss (ssget "P" '((0 . "POINT")))) <br /> (progn<br />   (setq i 1)<br />   (setq pt (cdr(assoc 10 (entget(ssname ss 0)))))<br />   (command "insert" "gc124" pt nn nn "0" )<br />   (repeat (1- (sslength ss))<br />    (setq pt (cdr(assoc 10 (entget(ssname ss i)))) i (1+ i))<br />    (command "insert" "gc124" pt nn nn "0" )<br />   )<br />    (princ)<br /> )<br /> )<br /> (command "erase" ss "")<br /> <br /> (setq tttc (ssget "X" '((8 . "ZBTZ_tmp"))))    ;;选择ZBTZ_tmp图层所有元素。<br /> (command "putp" "c"  "215401" tttc "")     ;;;;这里"215401"要加引号，不加好像不行<br /> ;(command "change" tttc "" "p" "la" "ZBTZ_tmp" "")<br /> <br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> <br /> )

1.先画条直线，再执行此命令，即可。（部分程序来自明经）

2.（提问）但是不能加入属性，PUTP这句要怎么写。可以先把ZBTZ图层改为ZBTZ_tmp图层。再;(setq tttc '((8 . "ZBTZ_tmp")))，然后再PUTP刷属性。但是这句不怎么会写。

3（提问） command 命令下哪些参数是要加   “”  如 (command "insert" "gc124" pt nn nn "0" )
  然后什么时候要在参数中间加   “”， 这个没搞明白，每次都 要试验好几回 。。。。。。

zhynt

回复 zhb236623 的帖子

一般来讲，参数中调用的变量不要加，数值参数不要加，其余都要加，记住一点，lisp中用""括起来的代表的是字符串，凡是用到字符串的地方都要""，还有就是空的""在程序中除了在命令函数调用中代表回车外，其他地方都是nil，另外在判断一个字符窜变量是否为空的时候用该用""，而不是用nil。

如上例中：(command "insert" "gc124" pt nn nn "0" )
qc124是块名是字符窜，所以要加；
pt、nn、nn 分别是插入点、比例的变量调用所以不要加。
后面的0是角度，是数值可以不用加。

总结一下，如果command调用中除了变量，都要加""，数值可以不加。补充：点坐标是表，不加，用'(x y z)
再如上例，如果插入点坐标为(0 0 0)；x向比例为1； y向比例为2； 旋转角度为0，可以写成：
(command "insert" "gc124" '(0 0 0) "1" "2" "0")
也可以写成
(command "insert" "gc124" '(0 0 0) 1 2 0)
需要加回车的情况：
(command "line" pt1 pt2 "")后面的""表示要用回车来结束程序，这和命令的执行方式是一样的。
比如复制：
(command "copy" ss ""  pt1 pt2 )中ss表示选集或单个的图元，""表示要用回车来结束选择，这就意味着可以加入多个选择，然后用""来结束，又如：(command "copy" s1 s2 s3 ...... sn "" pt1 pt2 )。和命令的执行方式是一样的。
如果不知道如何写，可以在图中实际操作一遍，记下步骤，然后将这些步骤写入lsp中再做稍许调整就ok了。

zhb236623

感谢zhynt 热心回复。问题已解决 。代码已更新。。。