qyming 发表于 2015-1-2 17:17:15

请大神指教,错误在哪里??????

(defun C:tt (/ r pt)
(setq r 1500)
(setq pt '(1,0,0))
   (entmake (list '(0 . "block")
                        '(100 . "AcDbEntity")
                        '(100 . "AcDbBlockbegin")
                        (cons 10 pt) ;基准点
                        '(2 . "no") ;块名
                        )
                  )
        (entmake (list '(0 . "circle")
                        '(100 . "AcDbEntity")
                        '(100 . "AcDbCircle")
                        (cons 10 pt) ;中心点
                        (cons 40 . r) ;半径
                        )
                  )
        (entmake (list '(0 . "circle")
                        '(100 . "AcDbEntity")
                        '(100 . "AcDbCircle")
                        (cons 10 pt) ;中心点
                        (cons 40 . (* 0.5 r)) ;半径
                        )
                  )                               
        (entmake (list '(0 . "endblk")
                        '(100 . "AcDbEntity")
                        '(100 . "AcDbBlockend")
                        )
                  )                               
)

nzl1116 发表于 2015-1-2 17:40:15

(setq pt '(1,0,0))
(cons 40 . r)
这两处错误

xyp1964 发表于 2015-1-2 17:49:30

(defun c:tt (/ r pt)
(setq r1500
      pt '(1 0 0)
)
(command "insert" "no" "non" pt 1 1 0)
(command "circle" "non" pt r)
(command "circle" "non" pt (* 0.5 r))
(princ)
)

鱼与熊掌 发表于 2015-1-2 19:45:36

;鱼与熊掌 插件定制 QQ:775452144
(defun C:tt (/ r pt)
(setq r 1500)
(setq pt '(1 0 0))
        (entmake (list '(0 . "block")
                        (cons 2 "na33m3e")
                        '(70 . 2)
                        (cons 10 pt) ;基准点
                )
        )
        (entmake (list '(0 . "circle")
                        (cons 10 pt) ;中心点
                        (cons 40r) ;半径
                )
        )
        (entmake (list '(0 . "circle")
                        (cons 10 pt) ;中心点
                        (cons 40(* 0.5 r)) ;半径
                )
        )                              
        (entmake (list '(0 . "endblk")
                )
        )                              
)

qyming 发表于 2015-1-3 12:48:22

鱼与熊掌 发表于 2015-1-2 19:45 static/image/common/back.gif


谢谢老大，问题解决了

1993063 发表于 2015-1-4 09:12:18

本帖最后由 1993063 于 2015-1-3 15:42 编辑

qyming 发表于 2015-1-2 18:48 static/image/common/back.gif
谢谢老大，问题解决了
就两圆还得组成块?
页: [1]
查看完整版本: 请大神指教,错误在哪里??????