[原创]：中心线程序（源码）

xiaochongcn · 发表于 2005-1-23 19:32:39

程序挺好的。
20楼的意见很好。。

xyp1964 · 发表于 2005-1-23 21:22:09

楼上发啥水帖！附件有何用？
已经改正了，好！呵呵……

蓝静如水 · 发表于 2005-1-25 13:18:42

这下子，无论是什么形状的桩、柱都可以轻松的标出其形心位置了。感谢xyp1964 长老的无私奉献。

倚夕扇雪 · 发表于 2005-3-15 15:58:19

挺实用的。
不要画中心线了。

xiao_longxin · 发表于 2005-3-25 19:00:09

可是我想要的是楼主的原码

tt55ly · 发表于 2005-3-27 09:41:49

哈哈...太用了，有了这东西,做异性柱和剪力墙的桩定位时，省了不少事！
感谢楼主，期待不丢失捕捉的升级版.........

xuyj · 发表于 2005-4-17 10:35:04

楼主，能不能不要钱呀，我都动不料了！

timnis · 发表于 2005-4-18 00:40:03

好像不错，下了，谢谢。

yunlong3000 · 发表于 2005-4-18 20:48:58

好程序，感谢楼主共享。研究一下。

xyp1964 · 发表于 2005-4-18 20:59:03

最初由 xuyj 发布
[B]楼主，能不能不要钱呀，我都动不料了！ [/B]

给个地址就发给你！

glmyyy · 发表于 2005-4-19 12:13:15

怎样使用?/

xmchy · 发表于 2005-4-24 08:51:41

好东西，这一个系列的都要收藏了

llshsjy · 发表于 2005-4-26 22:35:38

昨天浪费了我5个金币,还没有下载下来,偶心真的好痛呀!

xtuiui · 发表于 2005-4-27 00:28:05

zxx.fas怎么加载成功后，执行zxx，没反应呢？

xyp1964 · 发表于 2005-5-1 22:39:00

不指定图层和颜色的程序：
[php]
(load "xyp_lib")
;|
加载通用函数
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
如果已在acad.lsp中添加了(load "xyp_lib")，可以直接运行下面的程序。
|;
(defun c:zxx (/ pt1)
  (cmdla0)
  (setq LL (ureal 7 "" "\n中心线长度" ll))
  (while (setq pt1 (getpoint "\n选择区域内一点<退出> : "))
(command "-boundary" "a" "o" "r" "" pt1 "")
(setq pt1 (vlax-safearray->list
      (vlax-variant-value
         (vla-get-centroid (vlax-ename->vla-object (entlast)))
      )))
(entdel (entlast))
(setvar "osmode" 0)
(command "line" (POLAR PT1 0 ll) (POLAR PT1 PI ll) "")
(command "line"(POLAR PT1 (/ PI 2) ll)
      (POLAR PT1 (* PI 1.5) ll) ""
))
  (cmdla1)
)
(pxyp "ZXX (中心线)")
(princ)
[/php]

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