请版主帮忙看看调不通??????

sgf6

(defun C:gdq (/ oce oce1 oldlayer p1 p2  s:xh)
  (graphscr)

  (setq oce (getvar "cmdecho")
 oce1 (getvar "OSMODE")
        oldLayer (getvar "clayer")
     
  )
  (setvar "cmdecho" 0)

 
 
  ( initget 1  "M" )
  (setq p1 (getpoint "\n供电器输入口插入点:[重复M] "))
  (IF (= p1 "M")
(progn    
 (While p1
     (setq p1 (getpoint "\n供电器输入口插入点: "))
     (IF (= (type p1)  'list)
         (
           (setq
   
             p2 (getpoint p1 "\n供电器旋转角度 ")
      p2 (angle p1 p2)
            
           )
           (setq p2 (* ( / p2  pi ) 180))
    (command ".layer" "S" "电设备层" "")
           (setvar "OSMODE" 0)
           (command "insert" "供电器" p1  1  1 p2)
           (setvar "OSMODE" oce1) 
         )
      )
  )
 )
  (
  
     (setq       
         p2 (getpoint p1 "\n供电器旋转角度 ")
  p2 (angle p1 p2)
         p2 (*( / p2  pi ) 180)
     )
      (command ".layer" "S" "电设备层" "")
      (setvar "OSMODE" 0)
      (command "insert" "供电器" p1  1  1 p2 )
      (setvar "OSMODE" oce1)
   )
 )
 (setvar "clayer" oldLayer)
 (setvar "cmdecho" oce)
 (princ)
)

sgf6

这是一个能单个插入图块及重复插入图块的程序.

在重复选项里能运行但完成时有错误提示,提示能不能做的和CAD命令一个样.请大家帮帮忙,如 选择复制命令一样.

xyp1964

2. (defun C:gdq (/ oce oce1 oldlayer p1 p2 s:xh)
3.   (graphscr)
4.   (setq oce  (getvar "cmdecho")
5. oce1  (getvar "OSMODE")
6. oldLayer (getvar "clayer")
7.   )
8.   (setvar "cmdecho" 0)
9.   (command ".layer" "M" "电设备层" "S" "电设备层" "")
10.   (While (setq p1 (getpoint "\n供电器输入口插入点<退出>: "))
11.     (setq p2 (getpoint p1 "\n供电器旋转角度 ")
12.    p2 (angle p1 p2)
13.    p2 (* (/ p2 pi) 180)
14.     )
15.     (command ".layer" "S" "电设备层" "")
16.     (setvar "OSMODE" 0)
17.     (command "insert" "供电器" p1 1 1 p2)
18.   )
19.   (setvar "OSMODE" oce1)
20.   (setvar "clayer" oldLayer)
21.   (setvar "cmdecho" oce)
22.   (princ)
23. )

(defun C:gdq (/ oce oce1 oldlayer p1 p2 s:xh)   (graphscr)   (setq oce  (getvar "cmdecho") oce1  (getvar "OSMODE") oldLayer (getvar "clayer")   )   (setvar "cmdecho" 0)   (command ".layer" "M" "电设备层" "S" "电设备层" "")   (While (setq p1 (getpoint "\n供电器输入口插入点<退出>: "))     (setq p2 (getpoint p1 "\n供电器旋转角度 ")    p2 (angle p1 p2)    p2 (* (/ p2 pi) 180)     )     (command ".layer" "S" "电设备层" "")     (setvar "OSMODE" 0)     (command "insert" "供电器" p1 1 1 p2)   )   (setvar "OSMODE" oce1)   (setvar "clayer" oldLayer)   (setvar "cmdecho" oce)   (princ) )

sgf6

多谢!按ESC会出现; <错误: 函数被取消>能控制吗? 

还有一个问题想请教,使用(Line命令)在画不规则图形后不能插入图块.自动退出程序.能给个示例吗?????

ZZXXQQ

试一下：

3. (defun C:gdq (/ oce oce1 oldlayer p1)
4. (DEFUN MYERROR (S)
5.   (IF S (PRINC (STRCAT "\n应用程序错误:" S)))
6.   (setvar "OSMODE" oce1)
7.   (setvar "clayer" oldLayer)
8.   (setvar "cmdecho" oce)
9.   (PRINC)
10. )
11.   (SETQ OLDERR *ERROR* *ERROR* MYERROR)
12.   (graphscr)
13.   (setq oce  (getvar "cmdecho")
14. oce1  (getvar "OSMODE")
15. oldLayer (getvar "clayer")
16.   )
17.   (setvar "cmdecho" 0)
18.   (command ".layer" "M" "电设备层" "")
19.   (While (setq p1 (getpoint "\n供电器输入口插入点<退出>: "))
20.     (setvar "OSMODE" 0)
21.     (command ".insert" "供电器" p1 1 1 p2)
22.     (COMMAND ".ROTATE" "L" "" P1 PAUSE)
23.   )
24.   (SETQ *ERROR* OLDERR)
25.   (setvar "OSMODE" oce1)
26.   (setvar "clayer" oldLayer)
27.   (setvar "cmdecho" oce)
28.   (princ)
29. )

(defun C:gdq (/ oce oce1 oldlayer p1) (DEFUN MYERROR (S)   (IF S (PRINC (STRCAT "\n应用程序错误:" S)))   (setvar "OSMODE" oce1)   (setvar "clayer" oldLayer)   (setvar "cmdecho" oce)   (PRINC) )   (SETQ OLDERR *ERROR* *ERROR* MYERROR)   (graphscr)   (setq oce  (getvar "cmdecho") oce1  (getvar "OSMODE") oldLayer (getvar "clayer")   )   (setvar "cmdecho" 0)   (command ".layer" "M" "电设备层" "")   (While (setq p1 (getpoint "\n供电器输入口插入点<退出>: "))     (setvar "OSMODE" 0)     (command ".insert" "供电器" p1 1 1 p2)     (COMMAND ".ROTATE" "L" "" P1 PAUSE)   )   (SETQ *ERROR* OLDERR)   (setvar "OSMODE" oce1)   (setvar "clayer" oldLayer)   (setvar "cmdecho" oce)   (princ) )

sgf6

使用(Line命令)在画不规则图形后插入图块到线上.能给个示例吗?????

sgf6