帮忙啊！

mccad · 发表于 2002-5-28 21:36:00

我是建筑系的！
毕业设计是的二次开发，就是用LISP语言。

龙龙仔 · 发表于 2002-5-31 10:43:00

就是做个快捷键，在快捷键上添加新的功能。就象做个窗或其他什么建筑的一部分，使用快捷键（菜单），然后直接输入参数得出图形来，我其实对于LISP语言不太懂，但对AUTOCAD掌握得比较好所以选了它。希望能有人帮助我，即便是当一下我的启蒙老师就很感激了。`~下面是我的设想
我想做个画窗体的命令。（设想入下图所示）我的想法是：第一步(a)，先选一点做基点，然后选第二点(b)，做出了一个矩形，（也就是定下了整个窗体的范围、大小）第三点(c)确定窗格交叉的中心点，如果窗格多的话可以和第三点一样的选定第四点（c'）第五点（c''）第n 点（C’n ）希望有大虾能给与指点，在下感激不尽。

c4v5aouqngm.bmp

龙龙仔 · 发表于 2002-5-31 12:46:00

;;;毕业作业要自已来做吧!!我先帮你画矩形,其余靠你自己了...总要看些书...
(defun cRBT (/    pt1    pt2    HOLDECHO             HOLDBLIP
            HOLDOSMODE    ANG    DIST H    W    CTR
            RT    LB    RB    LT    line1 line2 line3
            line3
            )
  (setq HOLDECHO (getvar "cmdecho"))
  (setq HOLDBLIP (getvar "blipmode"))
  (setq HOLDOSMODE (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setvar "osmode" 0)
  (SETQ PT1 (GETPOINT "\n第一点: "))
  (SETQ PT2 (GETPOINT PT1 "\n对角点: "))
  (setq ANG (angle PT1 PT2))
  (setq DIST (distance PT1 PT2))
  (setq H (abs (- (cadr PT1) (cadr PT2))))
  (setq W (abs (- (car PT1) (car PT2))))
  (setq CTR (polar PT1 ANG (/ DIST 2.0)))
  (setq       RT (list (+ (car CTR) (/ W 2))
               (+ (cadr CTR) (/ H 2))
         )
  )
  (setq       LB (list (- (car CTR) (/ W 2))
               (- (cadr CTR) (/ H 2))
         )
  )
  (setq       RB (list (+ (car CTR) (/ W 2))
               (- (cadr CTR) (/ H 2))
         )
  )
  (setq       LT (list (- (car CTR) (/ W 2))
               (+ (cadr CTR) (/ H 2))
         )
  )
  (command "_.line" lb rb "")
  (setq line1 (entlast))
  (command "_.line" rb rt "")
  (setq line2 (entlast))
  (command "_.line" rt lt "")
  (setq line3 (entlast))
  (command "_.line" lt lb "")
  (setq line4 (entlast))
  (setvar "blipmode" HOLDBLIP)
  (setvar "cmdecho" HOLDECHO)
  (setvar "osmode" HOLDOSMODE)
  (princ)
)
;;;以下参考
;|(defun C:RT (/ PT1 PT2 HOLDECHO HOLDBLIP HOLDOSMODE)
  (setq HOLDECHO (getvar "cmdecho"))
  (setq HOLDBLIP (getvar "blipmode"))
  (setq HOLDOSMODE (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setvar "osmode" 39)
  (SETQ PT1 (GETPOINT "\n第一点: "))
  (SETQ PT2 (GETPOINT PT1 "\n对角点: "))
  (setvar "osmode" 0)
  (command "_.rectang" pt1 pt2)
  (setvar "blipmode" HOLDBLIP)
  (setvar "cmdecho" HOLDECHO)
  (setvar "osmode" HOLDOSMODE)
  (princ)
)|;
ps:有问题再提出

龙龙仔 · 发表于 2002-5-31 15:13:00

我回去试一下。谢谢啊
有空我再来！

帮忙啊！

发表回复

精选推荐

浏览过的版块