分享几个函数

Lisphk · 发表于 2016-12-10 16:56:29

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

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

x

(convstr "a-1223" 23) ==> "a-23"

(defun ConvStr (str n / i)
  (strcat
    (substr str 1 (setq i (1+ (vl-string-position 45 str))))
    (itoa n)
    (progn
      (setq str (substr str (1+ i)))
      (while (wcmatch (substr str 1 1) "#") (setq str (substr str 2)))
      str
    )
  )
)

2、选择集到VLA对象表

(defun KGA_Conv_Pickset_To_ObjectList (ss / i ret)
  (if ss
    (repeat (setq i (sslength ss))
      (setq ret (cons (vlax-ename->vla-object (ssname ss (setq i (1- i)))) ret))
    )
  )
)

3、对象的中心点

(defun KGA_Geom_ObjectMiddle (obj / ptBL ptTR)
  (vla-getboundingbox obj 'ptBL 'ptTR)
  (mapcar
    '/
    (mapcar '+ (vlax-safearray->list ptBL) (vlax-safearray->list ptTR))
    '(2.0 2.0 2.0)
  )
)

4、对象根据X,Y排序

游客，如果您要查看本帖隐藏内容请回复

sh_h · 发表于 2016-12-10 18:24:10

啥也不说了，感谢楼主分享哇！

爱莫能助 · 发表于 2016-12-10 18:42:50

楼主高大上

freefor5127 · 发表于 2016-12-10 21:05:25

来学习学习。。。

434939575 · 发表于 2016-12-10 21:21:48

多谢大侠分享！

cable2004 · 发表于 2016-12-10 21:56:04

本帖最后由 cable2004 于 2017-8-9 07:35 编辑

学习一下，谢谢!

sachindkini · 发表于 2016-12-10 21:59:37

wow nice ........................

HLCAD · 发表于 2016-12-10 22:17:52

非常实用的程序，谢谢楼主！

qqqincccken · 发表于 2016-12-11 00:12:48

谢谢提供,有空试试!!!

yjch · 发表于 2016-12-11 00:19:25

正需要，支持楼主大人了！

yoyoho · 发表于 2016-12-11 07:57:19

实用的程序，谢谢楼主分享！

zwwen12 · 发表于 2016-12-11 09:13:09

感谢楼主分享！！

ynhh · 发表于 2016-12-11 16:47:48

分享几个函数
谢谢你的分享了

kqqt6236 · 发表于 2016-12-11 19:28:48

谢谢分享。

hao3ren · 发表于 2016-12-11 20:12:42

像楼主学习

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

[每日一码] 分享几个函数

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