2013-04-29 明经 AutoLISP 编程(102918348) 群聊记录：(setq ss (ssget "X" '((0 . &

明经快报 · 发表于 2013-4-29 04:30:15

[仑通]仑通 04:30:15

(setq ss (ssget "X" '((0 . "LINE") (8 . "S_BEAMDIMMASS"))))
(MJ ss)
(defun Mj (ss / oldGrips)
  (setq oldGrips (getvar "Grips"))
  (setvar "Grips" 0)
  (cond
    ((= (type ss) 'PICKSET)
     (sssetfirst nil ss)
    )
    ((= (type ss) 'ENAME)
     (sssetfirst nil (ssadd ss (ssadd)))
    )
  )
  (setvar "Grips" oldGrips)
)

明经快报 · 发表于 2013-4-29 05:36:50

[仑通]仑通 05:36:50

9点

明经快报 · 发表于 2013-4-29 08:35:28

[1993063] 08:35:28

明经快报 · 发表于 2013-4-29 09:03:49

[fsxm]飞诗 09:03:49

[x_s_s_1]生无可恋 09:05:15

[qqimg]oldimg/{B5F43A21-581C-6B6F-52A3-CFB9FFB264B2}.gif[/qqimg]

[soly2006]季鸟 09:14:46

偶尔发发没什么，老整这些，改成生活服务群算了，与lisp没毛关系

明经快报 · 发表于 2013-4-29 10:49:56

[328302216]小莫 10:49:56

;;By 龙龙仔(LUCAS)，Modified by meflying
;;在TEXT和MTEXT实体的几何中心点画点
;;参数:sname - 文字对象名 (vl-load-com)
(defun TT (sname / CENTPT N)
(defun AX:GETBOUNDINGBOX (ENT / LL UR ents ents2)
(setq ents (entget ent))
(if (= (cdr (assoc 0 ents)) "MTEXT")
(progn
(setq ents2 ents)
(setq ents2 (subst (cons 41 0) (assoc 41 ents2) ents2))
(entmod ents2)
)
)
(vla-getboundingbox (vlax-ename->vla-object ENT) 'LL 'UR)
(entmod ents)
(MIDPOINT (vlax-safearray->list LL)
(vlax-safearray->list UR)
)
)
(defun MIDPOINT (PT1

T2)
(mapcar
'(lambda (X Y)
(* 0.5 (+ X Y))
)
PT1

T2
)
)
(setq CENTPT (AX:GETBOUNDINGBOX sname))
(command "_.point" centpt)
(princ)
)

明经快报 · 发表于 2013-4-29 11:00:42

[pzweng]路人 11:00:42

在文字中间写点的程序

[kwok][kwok]巭隼 11:00:43

这样的批量对齐可以做到吗?

[qqimg]oldimg/{A7451DEC-D191-32F7-C7E8-AA9D19668D10}.jpg[/qqimg]

[kwok][kwok]巭隼 11:01:37

选中所有对象，然后自动对齐

[pzweng]路人 11:02:29

有点难吧

找XYP1964

[kewyst]………… 11:02:56

coredraw有这个功能啊

[kwok][kwok]巭隼 11:03:35

不知设定不同层，然后过滤，再找基点排列可实现不.

coredraw有，有什么用?

线导来导去都变了

[mmh1]漫步地球 11:05:02

cad 里有没有双虚线的？

明经快报 · 发表于 2013-4-29 11:32:37

[kenroy]何为 11:32:37

[qqimg]oldimg/{B501BA99-12B8-8A0B-C8ED-F9D347C3BC14}.gif[/qqimg]

[kewyst]………… 11:34:15

什么意思

[kenroy]何为 11:34:38

等高线连接修改

明经快报 · 发表于 2013-4-29 11:55:55

[328302216]小莫 11:55:55

有没有什么办法可以直接取得pasteclip（ctrl+v）出来的对象？就是不用粘贴出来后再选择一次

[kwok][kwok]巭隼 11:57:48

"p"

ssget"p"?

[328302216]小莫 12:03:56

如果粘贴出来的有抖个对象好像就只选择了一部分

[328302216]小莫 12:05:36

因为这是别人的程序，一时找不到存储复制对象的是哪个变量，所以……

明经快报 · 发表于 2013-4-29 15:26:59

[xiaomm09]江湖 15:26:59

[q530496591][q530496591]小菜鸟 15:31:01

看不懂这个笑话

哦捐汽油啊

[Sign88]宁波标志 15:31:43

烧老师呀

明经快报 · 发表于 2013-4-29 15:43:00

[1993063] 15:43:00

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

[LISP群(1)] 2013-04-29 明经 AutoLISP 编程(102918348) 群聊记录：(setq ss (ssget "X" '((0 . &

相关帖子