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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [编程申请]：怎么画这个圆柱
12
返回列表 发新帖
楼主: 漏网の鱼

[编程申请]：怎么画这个圆柱

[复制链接]
aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2003-5-31 18:05:09 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
(setq        X (vlax-curve-getparamatpoint
            VL-OBJ
            (vlax-curve-getpointatparam
              VL-OBJ
              (vlax-curve-getparamatdist
                VL-OBJ
                0
              )
            )
          )
  )
是不是就是(vlax-curve-getStartParam  VL-OBJ)  ?


试一下,要xd-api,只写了圆.

  3. (defun c:rr( / a b c ent pt r ss)
  4. (prompt "\n请选取曲线(line,*polyline,spline,arc,circle)")
  5. (if(and
  6.   (setq ss(ssget '((0 . "line,*polyline,spline,arc,circle"))))
  7.   (setq r(getdist "\n半径"))
  8.    )
  9. (progn
  10. (xdrx_begin '("blipmode" 0 "cmdecho" 0 "osmode" 0 ))
  11. (xdrx_setsstodb ss 0)
  12. (while (setq ent (xdrx_getentdata 0))
  13.   (command"ucs""")
  14.   (setq pt(xdrx_curve_getpointatdist ent 0))
  15.   (setq a(xdrx_getperpline ent pt t) b(car a)c(cadr a))
  16.   (command"ucs""n""3" pt (mapcar '+ pt b) (mapcar '+ pt c))
  17.   (command"ucs""n""y""90")
  18.   (command"circle" (trans pt 0 1) (* 2.0 r))
  19.   (command"_extrude"(entlast)"""p"ent)
  20.   (command"ucs""")
  21. )(xdrx_end)
  22. ))
  23. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

madbull
发表于 2003-5-31 22:12:08 | 显示全部楼层
好使！！！
克服了“只能点选，不能框选”以及“受UCS的限制”这两个缺陷。
期待您早日编出“条块”和“球节点”程序。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2003-5-31 22:30:18 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
加入矩形管

  3. (defun c:rr( / a b c ent pt r ss l  make-f)
  4. (defun make-f(pt a b / p1 p2)
  5.   (setq p1(polar pt pi(/ a 2.))p1(polar p1(* pi 1.5)(/ b 2.))
  6.         p2(polar pt 0(/ a 2.))p2(polar p2(* pi 0.5)(/ b 2.)) )
  7.   (command"_rectang" p1 p2)
  8. )
  9. (prompt "\n请选取曲线(line,*polyline,spline,arc,circle)")
  10.   (setq ss(ssget '((0 . "line,*polyline,spline,arc,circle"))))
  11.   (initget "L")
  12.   (setq r(getdist "\n半径(L方管)"))
  13.   (if(= r "L")(setq l(getdist"\n方管宽:")
  14.                     h(getdist"\n方管高(回车等于宽):")))
  15.   (if(and l(not h))(setq h l))
  16. (if(and ss(or r l))
  17. (progn
  18. (xdrx_begin '("blipmode" 0 "cmdecho" 0 "osmode" 0 ))
  19. (xdrx_setsstodb ss 0)
  20. (while (setq ent (xdrx_getentdata 0))
  21.   (command"ucs""")
  22.   (setq pt(xdrx_curve_getpointatdist ent 0))
  23.   (setq a(xdrx_getperpline ent pt t) b(car a)c(cadr a))
  24.   (command"ucs""n""3" pt (mapcar '+ pt b) (mapcar '+ pt c))
  25.   (command"ucs""n""y""90")
  26. (if l(make-f (trans pt 0 1)h l)
  27.       (command"circle" (trans pt 0 1) (* 2.0 r))
  28. )
  29.   (command"_extrude"(entlast)"""p"ent)
  30.   (command"ucs""")
  31. )(xdrx_end)
  32. ))
  33. )

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

使用道具 举报

madbull
发表于 2003-5-31 22:56:54 | 显示全部楼层
大侠，我没看错吧－－怎么您编的画方管的程序，画出来的是圆管呢？而且，您编出来的最好是画矩形方管（要是能在矩形方管和正方形房管之间选择就更好了）。
球节点，就选在端点或两条线的交点上即可。（或者是点选的某一点上）
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
对不起，刚才我看错了。您编的是方管。但是不是矩形方管，麻烦您再改一下吧。
顺便说一句，您编程的速度真快！！
谢谢您！！
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
沿着样条曲线画方管，结果成了这个样子。不知为什么！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2003-5-31 23:46:18 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
上面改好了...矩形了

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

使用道具 举报

madbull
发表于 2003-5-31 23:54:51 | 显示全部楼层
谢谢，谢谢。这么晚，您辛苦了！！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

LUCAS
发表于 2003-6-2 12:32:51 | 显示全部楼层

  3. ;|
  4. (setq X        (vlax-curve-getparamatpoint
  5.           VL-OBJ
  6.           (vlax-curve-getpointatparam
  7.             VL-OBJ
  8.             (vlax-curve-getparamatdist
  9.               VL-OBJ
  10.               0
  11.             )
  12.           )
  13.         )
  14. )
  15. ;;是不是就是(vlax-curve-getStartParam VL-OBJ) ?
  16. ;;在这个程序上可以这样说,因我用的是0     (vlax-curve-getparamatdist VL-OBJ 0)
  17. ;;但在某些情况 查看
  18. ;;[url]http://www.xdcad.net/forum/showthre...88180#post88180[/url]
  19. ;;可能会有问题

  21. ;;有时我想晓东分了很多版面,也有专门的xdrx-api技术支持,
  22. ;;那么在vlisp版面上尽可能不使用xdrx-api会更有意思。
  23. |;
  24. (vl-load-com)
  25. (arxload "geom3d.arx" NIL)
  26. (defun C:VV (/             HOLDECHO             HOLDOSMODE             ENAME   VL-OBJ
  27.              X             RAD     SPT     EPT     ENT     ANG     KEY
  28.              RRR     SPTT    ENTT    SS
  29.             )

  31.   (while (null SS)
  32.     (prompt "\n选取挤出路径: ")
  33.     (setq
  34.       SS (ssget '((0 . "*POLYLINE,CIRCLE,ELLIPSE,ARC,LINE,SPLINE")))
  35.     )
  36.   )

  38.   (setq HOLDECHO (getvar "CMDECHO"))
  39.   (setq HOLDOSMODE (getvar "OSMODE"))
  40.   (setvar "CMDECHO" 0)
  41.   (setvar "OSMODE" 0)
  42.   (command "ucs" "")
  43.   (setq RAD (getstring "\n矩形管(S)/<圆管>: "))
  44.   (if (= RAD "")
  45.     (setq RAD (getdist "\n半径: "))
  46.     (progn
  47.       (setq AA (getdist "\n方管宽:")
  48.             BB (getdist "\n方管高(回车等于宽):")
  49.       )
  50.       (if (and AA (not BB))
  51.         (setq BB AA)
  52.       )
  53.       (setq RRR (getreal "\n倒角<0>: "))
  54.       (if (= RRR NIL)
  55.         (setq RRR 0)
  56.       )
  57.       (setvar "FILLETRAD" RRR)
  58.     )
  59.   )

  61.   (setq N 0)
  62.   (repeat (sslength SS)
  63.     (setq ENAME (ssname SS N))
  64.     (setq VL-OBJ (vlax-ename->vla-object ENAME))
  65.     (setq SPT (vlax-curve-getstartpoint VL-OBJ))
  66.     (setq B (vlax-curve-getfirstderiv
  67.               VL-OBJ
  68.               (vlax-curve-getstartparam VL-OBJ)
  69.             )
  70.     )
  71.     (setq C (cdr (assoc 210 (entget ENAME))))
  72.     (command "ucs"
  73.              "n"
  74.              "3"
  75.              SPT
  76.              (mapcar '+ SPT B)
  77.              (mapcar '+ SPT C)
  78.     )
  79.     (command "_.ucs" "n" "y" "90")
  80.     (if        (= 'real (type rad))
  81.       (command "_.circle" (trans SPT 0 1) (* 2.0 RAD))
  82.       (progn
  83.         (setq P1 (polar (trans SPT 0 1) pi (/ AA 2.))
  84.               P1 (polar P1 (* pi 1.5) (/ BB 2.))
  85.               P2 (polar (trans SPT 0 1) 0 (/ AA 2.))
  86.               P2 (polar P2 (* pi 0.5) (/ BB 2.))
  87.         )
  88.         (command "_.rectang" P1 P2)
  89.         (command "_.FILLET" "PO" (entlast))
  90.       )
  91.     )
  92.     (command "_.extrude" (entlast) "" "p" ENAME)
  93.     (command "_.ucs" "")
  94.     (setq N (1+ N))
  95.   )
  96.   (setvar "OSMODE" HOLDOSMODE)
  97.   (setvar "CMDECHO" HOLDECHO)
  98.   (princ)
  99. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

madbull
发表于 2003-6-2 16:43:34 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
大侠，坐不出来呀！
请看命令行提示：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
命令: vv
选取挤出路径:
选择对象: 找到 1 个
选择对象:
矩形管(S)/<圆管>: s
方管宽:20
方管高(回车等于宽):60
倒角<0>:
; 错误: 参数类型错误: numberp: "s"
指定圆的半径或 [直径(D)] <40.0000>:
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ago9999
发表于 2003-7-16 23:06:37 | 显示全部楼层
我只有一个选择截面（可以输入，选择和对应块）和路径（任意线除样条曲线外的空间线，可多选），然后生成实体。至于用代码那要等我再多学几天。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-1-24 13:53:17 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
LUCAS  斑竹的程序正是所要的东东，巨好使！
未经允许稍加修改，致歉。
[php]
;;;方管、圆管
;;;By LUCAS
(load "xyp_lib")
(defun C:test (/ ENAME OBJ X RAD SPT EPT ENT ANG KEY SPTT ENTT SS)
  (cmdla0)
  (prompt "\n选取挤出路径: ")
  (setq SS (ssget '((0 . "*POLYLINE,CIRCLE,ELLIPSE,ARC,LINE,SPLINE"))))
  (setvar "OSMODE" 0)
  (command "ucs" "")
  (setq txt (ukword 1 "1 2" "\n1-矩形管/2-圆管" txt))
  (if (= txt "2")
    (setq RAD (ureal 1 "" "\n半径" rad))
    (progn
      (setq AA (ureal 1 "" "\n方管宽" AA)
            BB (ureal 1 "" "\n方管高" BB)
      )
      (setq RRR (ureal 1 "" "\n倒角" RRR))
      (setvar "FILLETRAD" RRR)
    )
  )
  (setq N 0)
  (command ".undo" "BE")
  (mkla"管"1)
  (repeat (sslength SS)
    (setq ENAME (ssname SS N))
    (setq OBJ (vlax-ename->vla-object ENAME))
    (setq SPT (vlax-curve-getstartpoint OBJ))
    (setq B (vlax-curve-getfirstderiv
              OBJ
              (vlax-curve-getstartparam OBJ)
            )
    )
    (setq C (cdr (assoc 210 (entget ENAME))))
    (command "ucs"
             "n"
             "3"
             SPT
             (mapcar '+ SPT B)
             (mapcar '+ SPT C)
    )
    (command "_.ucs" "n" "y" "90")
    (if        (= 'real (type rad))
      (command "_.circle" (trans SPT 0 1) (* 2.0 RAD))
      (progn
        (setq P1 (polar (trans SPT 0 1) pi (/ AA 2.))
              P1 (polar P1 (* pi 1.5) (/ BB 2.))
              P2 (polar (trans SPT 0 1) 0 (/ AA 2.))
              P2 (polar P2 (* pi 0.5) (/ BB 2.))
        )
        (command "_.rectang" P1 P2)
        (command "_.FILLET" "PO" (entlast))
      )
    )
    (command "_.extrude" (entlast) "" "p" ENAME)
    (command "_.ucs" "")
    (setq N (1+ N))
  )
  (command ".undo" "E")
  (cmdla1)
)
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-27 22:44 , Processed in 0.384698 second(s), 46 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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