高手请进！！！

龙龙仔 · 发表于 2002-6-3 12:51

(defun C

RBT (/ PT PT1 PT2 HOLDECHO HOLDBLIP HOLDOSMODE ANG DIST H W
         CTR RT LB RB LT LINE3 LINE4 DIST
      )
  (defun DO_IT ()
(setq DIST (- (car PT) (car LB)))
(setvar "offsetdist" DIST)
(command "_.offset" "" LINE4 PT "")
(setq DIST (- (cadr PT) (cadr LT)))
(setvar "offsetdist" DIST)
(command "_.offset" "" LINE3 PT "")
  )
  (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 "")
  (command "_.line" RB RT "")
  (command "_.line" RT LT "")
  (setq LINE3 (entlast))
  (command "_.line" LT LB "")
  (setq LINE4 (entlast))
  (setq PT (list (/ (+ (car LB) (car RT)) 2)
   (/ (+ (cadr LB) (cadr RT)) 2)
   )
  )
  (DO_IT)
  (while (setq PT (getpoint "\n框交点: "))
(if (and (> (car PT) (car LB))
      (> (cadr LT) (cadr PT))
      (< (car PT) (car RB))
      (< (cadr RB) (cadr PT))
)
   (DO_IT)
   (alert "\n 请选框内点: ")
)
  )
  (setvar "blipmode" HOLDBLIP)
  (setvar "cmdecho" HOLDECHO)
  (setvar "osmode" HOLDOSMODE)
  (princ)
)

弦 · 发表于 2002-6-3 18:54

我真是个笨笨~~！不知是怎么出的错。我开不出来错在什么地方

龙龙仔 · 发表于 2002-6-4 10:18

弦 · 发表于 2002-6-8 16:11

本帖最后由作者于 2002-6-8 16:11:42 编辑

我还想做个按钮，还有其他的什么完善一下就好了。
对了在那个画完矩形时，它就自动出来一个交叉点，我觉得因该把它去掉，不知怎么改。

龙龙仔 · 发表于 2002-6-10 08:42

那个交叉点是你要求的第3点呀!!
(defun C

RBT (/ PT PT1 PT2 HOLDECHO HOLDBLIP HOLDOSMODE ANG DIST H W
         CTR RT LB RB LT LINE3 LINE4 DIST
      )
  (defun DO_IT ()
(setq DIST (- (car PT) (car LB)))
(setvar "offsetdist" DIST)
(command "_.offset" "" LINE4 PT "")
(setq DIST (- (cadr PT) (cadr LT)))
(setvar "offsetdist" DIST)
(command "_.offset" "" LINE3 PT "")
  )
  (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 "")
  (command "_.line" RB RT "")
  (command "_.line" RT LT "")
  (setq LINE3 (entlast))
  (command "_.line" LT LB "")
  (setq LINE4 (entlast))
  (while (setq PT (getpoint "\n框交点: "))
(if (and (> (car PT) (car LB))
      (> (cadr LT) (cadr PT))
      (< (car PT) (car RB))
      (< (cadr RB) (cadr PT))
)
   (DO_IT)
   (alert "\n 请选框内点: ")
)
  )
  (setvar "blipmode" HOLDBLIP)
  (setvar "cmdecho" HOLDECHO)
  (setvar "osmode" HOLDOSMODE)
  (princ)
)

按键
^C^C(IF (NULL C

RBT)(LOAD "LRBT"));LRBT

弦 · 发表于 2002-6-16 12:55

本帖最后由作者于 2002-6-16 12:55:05 编辑

我是说这个按钮是上面的程序的。使得不用每次都还要导入程序，输入命令。自动导入程序的一个文件ACDC。LSP我没找着啊？

jingsabing · 发表于 2002-6-16 17:19

我还怎么贴啊！
我在前面贴了一些程序了，但怎么整体贴我不知道！

jingsabing · 发表于 2002-6-16 17:21

怎么是内部认证？
内部认证了在哪贴啊？

jingsabing · 发表于 2002-6-16 17:23

有什么事可发到我的邮箱中去。是JINGSABING@sohu.com

账号		自动登录	找回密码
密码			注册

高手请进！！！

哈，现在是搞毕业设计的高峰期，学校里还有什么好的题目呢

毕业作业总要留点给你(欠消除重复线)OK了9成!!

可我试了一下，好象不太管用啊！

不知是怎么出的错,就没法改了

龙兄，我会了，但还有点不是太满意。`~~

那个交叉点是你要求的第3点呀!!...

好的，但是要添加一个按钮，怎么做？

我怎么贴啊！

我怎么贴啊！

有什么事可发到我的邮箱