设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：程序不完整，请指点
12下一页
返回列表 发新帖
查看: 1359|回复: 17

[求助] [求助]：程序不完整，请指点

[复制链接]
ewenhui
发表于 2006-4-1 12:49:57 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
[php](defun c:bb ( / e ee i leng leng1 nnn p0 p1 p2 p3 p4 p5 p6 p7 px py s1 s2 s200 s200-400 s400 ss yk yl)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq nnn -1)
(setq bx (uint 7 "" "\n输入板边(毫米)" bx))
(setq e (getstring "\n输入编号:"))
(command "zoom" "e")
(setq px (getvar "extmin")
       py (getvar "extmax")
       p0 (polar (polar px pi bx) (- (/ pi 2)) bx)
       p1 (list (* (fix (+ (/ (car p0) 10) 0.5)) 10) (* (fix (+ (/ (cadr p0) 10) 0.5)) 10))
       p2 (polar p1 (/ pi 2) (* (fix (+ (/ (+ (- (cadr py) (cadr px)) bx bx) 10) 0.5)) 10))
       p3 (polar p2 0 (* (fix (+ (/ (+ (- (car py) (car px)) bx bx) 10) 0.5)) 10))
       p4 (list (car p3) (cadr p1))
       yk (polar (polar px 0 50) (* pi 1.5) 26)
       yl (polar (polar (polar px 0 (- (car py) (car px))) (* pi 0.5) 40) 0 6))

(setq p5 (_midp p2 p3)
       p6 (polar (polar p5 pi 25) (* pi 1.5) 30)
       p7 (polar (polar p6 0 30) (* pi 0.5) 1))
      
(setvar "osmode" 0)

;;;插入文字
(mkla "文字" 6)
(command "insert" "hy" p6 "1" "1" "");标志
(setq ee (entlast))
(command "explode" ee "")
(command "text" p7 0 e);编号

;;;画外框
(mkla "板边" 4)
   (command "rectang" "f" 2 p1 p3 "zoom" "e")


;;;加定位孔
(setq ee (getstring "\n需要针位按回车，否则按N:"))
  (cond
      ((= ee "n")
      (setq ee (ssget "X" '((8 . "0"))))
      (command "move" ee "" "mtp" px py "mtp" p1 p3)      
      )
      
      ((= ee "")
      (command "rectang" "f" 0 yk "@30,20")
      (setq ss (entlast))
      (command "mirror" ss "" p5 "mtp" p1 p4 "n")
      (setq s1 (entlast))
      (command "rectang" "f" 0 yl "@20,30")
      (setq s2 (entlast))
      (setq ee (ssget "X" '((8 . "0"))))
      (command "move" ee ss s1 s2 "" "mtp" px py "mtp" p1 p3)
      )
  )


  ;;;炸开实体
  (setq ee (ssget "X" '((8 . "板边"))))
  (command "explode" ee "")



  ;;;选择集：<=200  开口
  (setq ss   (ssget "X" '((0 . "line")(8 . "板边")))
        s200 (ssadd)
        i    -1
  )
  
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq
      leng (vlax-curve-getDistAtParam s1 (vlax-curve-getEndParam s1))
    )
    (cond ((<= leng 200) (setq s200 (ssadd s1 s200)))          
    )
  )

  (while (setq ee (ssname s200 (setq nnn (1+ nnn))))
    (setq leng        (vlax-curve-getDistAtParam ee (vlax-curve-getEndParam ee))
          leng1        (/ (- leng (* (- 2 1) 1.2)) 2)
    )
    (repeat (- 2 1)
      (setq px        (vlax-curve-getPointAtDist (vlax-ename->vla-object ee) leng1)
            py        (vlax-curve-getPointAtDist (vlax-ename->vla-object ee) (+ leng1 1.2))
      )
      (command "break" ee px py)
      (command "select" "l" "")
      (setq s1 (ssget "p")
            ee  (ssname s1 0)
      )
    )
  )
  
  
  ;;;选择集：200<而<=400  开口
  (setq ss (ssget "X" '((0 . "line")(8 . "板边")))
        s200-400 (ssadd)
        i         -1
  )
  
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq
      leng (vlax-curve-getDistAtParam s1 (vlax-curve-getEndParam s1))
    )
    (cond ((and (> leng 200) (<= leng 400))
           (setq s200-400 (ssadd s1 s200-400))
          )
    )
  )
  
  (while (setq ee (ssname s200-400 (setq nnn (1+ nnn))))
    (setq leng        (vlax-curve-getDistAtParam ee (vlax-curve-getEndParam ee))
          leng1        (/ (- leng (* (- 3 1) 1.2)) 3)
    )
    (repeat (- 3 1)
      (setq px (vlax-curve-getPointAtDist
                  (vlax-ename->vla-object ee)
                  leng1
                )
            py (vlax-curve-getPointAtDist
                  (vlax-ename->vla-object ee)
                  (+ leng1 1.2)
                )
      )
      (command "break" ee px py)
      (command "select" "l" "")
      (setq s1 (ssget "p")
            ee  (ssname s1 0)
      )
    )
  )
  
  
  ;;;选择集：>400  开口
  (setq ss (ssget "X" '((0 . "line")(8 . "板边")))
        s400     (ssadd)
        i         -1
  )
  
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq
      leng (vlax-curve-getDistAtParam s1 (vlax-curve-getEndParam s1))
    )
    (cond ((> leng 400) (setq s400 (ssadd s1 s400)))
    )
  )
  
  (while (setq ee (ssname s400 (setq nnn (1+ nnn))))
    (setq leng        (vlax-curve-getDistAtParam ee (vlax-curve-getEndParam ee))
          leng1        (/ (- leng (* (- 4 1) 1.2)) 4)
    )
    (repeat (- 4 1)
      (setq px (vlax-curve-getPointAtDist
                  (vlax-ename->vla-object ee)
                  leng1
                )
            py (vlax-curve-getPointAtDist
                  (vlax-ename->vla-object ee)
                  (+ leng1 1.2)
                )
      )
      (command "break" ee px py)
      (command "select" "l" "")
      (setq s1 (ssget "p")
            ee  (ssname s1 0)
      )
    )
  )
  
  

  (setq ee (ssget "X" '((8 . "板边"))))
  (command "pedit" "m" ee "" "j" "" "")


  (mkla "0" 7)
  (setvar "osmode" 55)
  (alert (strcat "\板度长 = "(rtos (- (car p3) (car p2)) 2 0) " 毫米"
                 "\  宽 = "(rtos (- (cadr p2) (cadr p1)) 2 0) " 毫米"))
  (prin1)
)
[/php]
;程序运行到对选择集进行操作时，只对第一个选择集有效，对后面的选择集无效，请指点误区。
setq, command, vlax

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

xyp1964
发表于 2006-4-1 16:43:23 | 显示全部楼层
  2. [FONT=courier new](defun c:bb ()
  3.   (cmdla0)
  4.   (setq nnn -1)
  5.   (if (null bx)
  6.     (setq bx 1000)
  7.   )
  8.   (if (null e)
  9.     (setq e "A1")
  10.   )
  11.   (setq        bx (uint 7 "" "\n输入板边(毫米)" bx)
  12.         e  (USTR 1 "\n输入编号" e NIL)
  13.   )
  14.   (command "zoom" "e")
  15.   (setq        px (getvar "extmin")
  16.         py (getvar "extmax")
  17.         p0 (polar (polar px pi bx) (- (/ pi 2)) bx)
  18.         p1 (list (* (fix (+ (/ (car p0) 10) 0.5)) 10)
  19.                  (* (fix (+ (/ (cadr p0) 10) 0.5)) 10)
  20.            )
  21.         p2 (polar p1
  22.                   (/ pi 2)
  23.                   (* (fix (+ (/ (+ (- (cadr py) (cadr px)) bx bx) 10) 0.5))
  24.                      10
  25.                   )
  26.            )
  27.         p3 (polar p2
  28.                   0
  29.                   (* (fix (+ (/ (+ (- (car py) (car px)) bx bx) 10) 0.5)) 10)
  30.            )
  31.         p4 (list (car p3) (cadr p1))
  32.         yk (polar (polar px 0 50) (* pi 1.5) 26)
  33.         yl (polar (polar (polar px 0 (- (car py) (car px))) (* pi 0.5) 40)
  34.                   0
  35.                   6
  36.            )
  37.         p5 (_midp p2 p3)
  38.         p6 (polar (polar p5 pi 25) (* pi 1.5) 30)
  39.         p7 (polar (polar p6 0 30) (* pi 0.5) 1)
  40.   )
  41.   (setvar "osmode" 0)

  43.   ;;插入文字
  44.   (mkla "文字" 6)
  45.   (command "insert" "hy" p6 "1" "1" "")        ;标志
  46.   ;;(command "insert" "di" p6 "1" "1" "")
  47.   (setq ee (entlast))
  48.   (command "explode" ee "")
  49.   (command "text" p7 300 0 e)                ;编号
  50.   ;;画外框
  51.   (mkla "板边" 4)
  52.   (command "rectang" "f" 2 p1 p3 "zoom" "e")
  53.   ;;加定位孔
  54.   (if (null ee)
  55.     (setq ee "N")
  56.   )
  57.   (setq ukw (UKWORD 7 "Y N" "\n是否需要针位 : Y-需要/N-不需要" ukw))
  58.   (cond        ((= ukw "N")
  59.          (setq ee (ssget "X" '((8 . "0"))))
  60.          ;;(command "move" ee "" "mtp" px py "mtp" p1 p3); mtp是?
  61.          (command "move" ee "" (_midp px py) (_midp p1 p3))
  62.         )
  63.         ((= ukw "Y")
  64.          (command "rectang" "f" 0 yk "@30,20")
  65.          (setq ss (entlast))
  66.          (command "mirror" ss "" p5 (_midp p1 p4) "n")
  67.          (setq s1 (entlast))
  68.          (command "rectang" "f" 0 yl "@20,30")
  69.          (setq s2 (entlast))
  70.          (setq ee (ssget "X" '((8 . "0"))))
  71.          (command "move" ee ss s1 s2 "" (_midp px py) (_midp p1 p3))
  72.         )
  73.   )

  75.   ;;炸开实体
  76.   (setq ee (ssget "X" '((8 . "板边"))))
  77.   (command "explode" ee "")
  78.   ;;选择集：<=200  开口
  79.   (setq        ss   (ssget "X" '((0 . "line") (8 . "板边")))
  80.         s200 (ssadd)
  81.         i    -1
  82.   )
  83.   (while (setq s1 (ssname ss (setq i (1+ i))))
  84.     (setq
  85.       leng (vlax-curve-getDistAtParam s1 (vlax-curve-getEndParam s1))
  86.     )
  87.     (cond ((<= leng 200) (setq s200 (ssadd s1 s200)))
  88.     )
  89.   )
  90.   (while (setq ee (ssname s200 (setq nnn (1+ nnn))))
  91.     (setq leng        (vlax-curve-getDistAtParam ee (vlax-curve-getEndParam ee))
  92.           leng1        (/ (- leng (* (- 2 1) 1.2)) 2)
  93.     )
  94.     (repeat (- 2 1)
  95.       (setq px (vlax-curve-getPointAtDist
  96.                  (vlax-ename->vla-object ee)
  97.                  leng1
  98.                )
  99.             py (vlax-curve-getPointAtDist
  100.                  (vlax-ename->vla-object ee)
  101.                  (+ leng1 1.2)
  102.                )
  103.       )
  104.       (command "break" ee px py)
  105.       (command "select" "l" "")
  106.       (setq s1 (ssget "p")
  107.             ee (ssname s1 0)
  108.       )
  109.     )
  110.   )
  111.   ;;选择集：200<而<=400  开口

  113.   (setq        ss         (ssget "X" '((0 . "line") (8 . "板边")))
  114.         s200-400 (ssadd)
  115.         i         -1
  116.   )

  118.   (while (setq s1 (ssname ss (setq i (1+ i))))
  119.     (setq
  120.       leng (vlax-curve-getDistAtParam s1 (vlax-curve-getEndParam s1))
  121.     )
  122.     (cond ((and (> leng 200) (<= leng 400))
  123.            (setq s200-400 (ssadd s1 s200-400))
  124.           )
  125.     )
  126.   )
  127.   (while (setq ee (ssname s200-400 (setq nnn (1+ nnn))))
  128.     (setq leng        (vlax-curve-getDistAtParam ee (vlax-curve-getEndParam ee))
  129.           leng1        (/ (- leng (* (- 3 1) 1.2)) 3)
  130.     )
  131.     (repeat (- 3 1)
  132.       (setq px (vlax-curve-getPointAtDist
  133.                  (vlax-ename->vla-object ee)
  134.                  leng1
  135.                )
  136.             py (vlax-curve-getPointAtDist
  137.                  (vlax-ename->vla-object ee)
  138.                  (+ leng1 1.2)
  139.                )
  140.       )
  141.       (command "break" ee px py)
  142.       (command "select" "l" "")
  143.       (setq s1 (ssget "p")
  144.             ee (ssname s1 0)
  145.       )
  146.     )
  147.   )
  148.   ;;选择集：>400  开口
  149.   (setq        ss   (ssget "X" '((0 . "line") (8 . "板边")))
  150.         s400 (ssadd)
  151.         i    -1
  152.   )
  153.   (while (setq s1 (ssname ss (setq i (1+ i))))
  154.     (setq
  155.       leng (vlax-curve-getDistAtParam s1 (vlax-curve-getEndParam s1))
  156.     )
  157.     (cond ((> leng 400) (setq s400 (ssadd s1 s400)))
  158.     )
  159.   )
  160.   (while (setq ee (ssname s400 (setq nnn (1+ nnn))))
  161.     (setq leng        (vlax-curve-getDistAtParam ee (vlax-curve-getEndParam ee))
  162.           leng1        (/ (- leng (* (- 4 1) 1.2)) 4)
  163.     )
  164.     (repeat (- 4 1)
  165.       (setq px (vlax-curve-getPointAtDist
  166.                  (vlax-ename->vla-object ee)
  167.                  leng1
  168.                )
  169.             py (vlax-curve-getPointAtDist
  170.                  (vlax-ename->vla-object ee)
  171.                  (+ leng1 1.2)
  172.                )
  173.       )
  174.       (command "break" ee px py)
  175.       (command "select" "l" "")
  176.       (setq s1 (ssget "p")
  177.             ee (ssname s1 0)
  178.       )
  179.     )
  180.   )
  181.   (setq ee (ssget "X" '((8 . "板边"))))
  182.   (command "pedit" "m" ee "" "Y" "j" "" "")
  183.   (alert (strcat "板度长 = "
  184.                  (rtos (- (car p3) (car p2)) 2 0)
  185.                  " 毫米"
  186.                  "  宽 = "
  187.                  (rtos (- (cadr p2) (cadr p1)) 2 0)
  188.                  " 毫米"
  189.          )
  190.   )
  191.   (cmdla1)
  192. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ewenhui
 楼主| 发表于 2006-4-2 14:44:51 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
多谢xyp1964版主的回复。
“mtp”或“m2p”是两点的中点

问题还是没有解决：
  • 对选择集<=200 进行等分操作成功
  • 对选择集200<而<=400 和选择集>400 没有进行操作，
    （图形里有350和450的line线，程序运行完毕没有提示错误，没有对两个选择集进行等分开口）
  • 另外，可否把类似于等分打断的lisp做成如“xyp-Break”这样的通用函数？并有等分数和开口尺寸的参数选项？谢谢！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2006-4-4 23:39:16 | 显示全部楼层
最初由 ewenhui 发布
[B]多谢xyp1964版主的回复。
“mtp”或“m2p”是两点的中点

问题还是没有解决：
  • 对选择集<=200 进行等分操作成功
  • 对选择集200<而<=400 和选择集>400 没有进行操作，
    （图形里有350和450的line线，... [/B]

函数：xyp-Curve-Divide            
功能：等分线并开口
用法：(xyp-Curve-Divide 实体名 等分数量 缺口长)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ewenhui
 楼主| 发表于 2006-4-6 13:06:07 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
函数：xyp-Curve-Divide
功能：等分线并开口
用法：(xyp-Curve-Divide 实体名 等分数量 缺口长)

请问版主：
  • 此函数是新增加的吗？
  • 我用4月5日版本的通用函数使用此函数时，提示显示：错误 : 参数类型错误: lentityp (selection set:78)
  • 用3月14日版本提示显示：错误 : no function definition: XYP-CURVE-DIVIDE
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2006-4-6 14:00:37 | 显示全部楼层
(xyp-Curve-Divide (car(entsel)) 5 100)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ewenhui
 楼主| 发表于 2006-4-6 14:58:21 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 xyp1964 发布
[B](xyp-Curve-Divide (car(entsel)) 5 100) [/B]


这样的话就无法对选择集进行操作了。
另，我的问题版主还是没解决。谢谢！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2006-4-6 21:50:59 | 显示全部楼层
最初由 ewenhui 发布
[B]

这样的话就无法对选择集进行操作了。
另，我的问题版主还是没解决。谢谢！ [/B]

程序太长，没看懂要达到的目的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ewenhui
 楼主| 发表于 2006-4-7 14:13:38 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 ewenhui 发布
[B]多谢xyp1964版主的回复。
“mtp”或“m2p”是两点的中点

问题还是没有解决：
  • 对选择集<=200 进行等分操作成功
  • 对选择集200<而<=400 和选择集>400 没有进行操作，
    （图形里有350和450的line线，... [/B]


这个是模切板的板边程序，问题是出在板边桥位（开口），对定位孔开口通过，但是对四个板边的开口没有通过。（执行程序之前先画个矩形，可以画350×250mm试试）
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2006-4-7 14:45:59 | 显示全部楼层
最初由 ewenhui 发布
[B][QUOTE]最初由 ewenhui 发布
[B]多谢xyp1964版主的回复。
“mtp”或“m2p”是两点的中点

问题还是没有解决：
  • 对选择集<=200 进行等分操作成功
  • 对选择集200<而<=400 和选择集>400 没有进... [/B]

发个图看看：包括原图和希望的结果。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zsenbao
发表于 2006-4-7 14:50:17 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
kk
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ewenhui
 楼主| 发表于 2006-4-7 15:46:07 | 显示全部楼层
文件附上来了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2006-4-7 21:20:23 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
  2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060406
  3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
  4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
  5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
  6. ■2·在每个程序内增加(load"xyp_lib.vlx")
  7. ■3·在command下，输入(load"xyp_lib.vlx")
  8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
  9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
  10. [COLOR=red] ★通用函数下载地址：[/COLOR]
  11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
  12. |;

  14. (defun c:test ()
  15.   (CMDLASC0)
  16.   (setvar "osmode" 0)
  17.   (if (null bx)
  18.     (setq bx 50)
  19.   )
  20.   (if (null e)
  21.     (setq e "060407")
  22.   )
  23.   (setq        bx  (uint 1 "" "\n输入板边(毫米)" bx)
  24.         e   (USTR 1 "\n输入编号" e nil)
  25.         ss  (ssget '((0 . "CIRCLE,*LINE,ARC,ELLIPSE")))
  26.         pt1 (xyp-get-SsMinMaxPoint ss 1)
  27.         pt5 (xyp-get-SsMinMaxPoint ss 5)
  28.         pt1 (list (- (car pt1) bx) (- (cadr pt1) bx))
  29.         pt9 (xyp-get-SsMinMaxPoint ss 9)
  30.         pt9 (list (+ (car pt9) bx) (+ (cadr pt9) bx))
  31.         pt3 (list (car pt9) (cadr pt1))
  32.         pt8 (list (car pt5) (cadr pt9))
  33.   )
  34.   (xyp-Text 8 pt8 e)
  35.   (xyp-mklaco "板边" 4)
  36.   (command "rectang" "f" 2 pt1 pt9 "zoom" "e")
  37.   (setq        pt1a (list (+ (car pt1) 100) (+ (cadr pt1) 25))
  38.         pt1b (list (+ (car pt1a) 30) (+ (cadr pt1a) 20))
  39.   )
  40.   (command "rectang" "f" 0 pt1a pt1b)
  41.   (command "mirror"
  42.            (entlast)
  43.            ""
  44.            pt5
  45.            (polar pt5 (* pi 0.5) 10)
  46.            ""
  47.   )
  48.   (setq        pt3a (list (- (car pt3) 25) (+ (cadr pt3) 90))
  49.         pt3b (list (- (car pt3a) 20) (+ (cadr pt3a) 30))
  50.   )
  51.   (command "rectang" "f" 0 pt3a pt3b)
  52.   (setq ss (ssget "X" '((0 . "CIRCLE,*LINE,ARC,ELLIPSE") (8 . "板边"))))
  53.   (command "explode" ss "")
  54.   (setq        ss (ssget "X" '((0 . "CIRCLE,*LINE,ARC,ELLIPSE") (8 . "板边")))
  55.         i  -1
  56.   )
  57.   (while (setq s1 (ssname ss (setq i (1+ i))))
  58.     (setq leng (xyp-get-Curvelength s1))
  59.     (cond ((and (> leng 15) (< leng 350))
  60.            (xyp-Curve-Divide s1 2 1.2)
  61.           )
  62.           ((and (> leng 350) (< leng 450))
  63.            (xyp-Curve-Divide s1 3 1.2)
  64.           )
  65.           ((and (> leng 450) (< leng 600))
  66.            (xyp-Curve-Divide s1 4 1.2)
  67.           )
  68.           ((and (> leng 600) (< leng 750))
  69.            (xyp-Curve-Divide s1 5 1.2)
  70.           )
  71.     )
  72.   )
  73.   (CMDLA1)
  74. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ewenhui
 楼主| 发表于 2006-4-8 19:06:49 | 显示全部楼层
多谢版主的支持，问题解决了。（原来的程序错在变量nnn没有重新设定）
函数：(xyp-Curve-Divide 实体名 等分数量 缺口长)好用，只是加载了最新的通用函数之后旧的程序出错，请版主指点。（是不是旧的函数名被取消了？）
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2006-4-8 21:27:41 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 ewenhui 发布
[B]多谢版主的支持，问题解决了。（原来的程序错在变量nnn没有重新设定）
函数：(xyp-Curve-Divide 实体名 等分数量 缺口长)好用，只是加载了最新的通用函数之后旧的程序出错，请版主指点。（是不是旧的函数名被取消了... [/B]

不知哪个程序有问题？
贴出来好“诊断”！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-29 05:48 , Processed in 0.813809 second(s), 61 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表