[求助]：这种过滤条件比较多的文字操作如何实现？

okace · 发表于 2007-2-4 16:08:58

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

×

很想有实现以下功能的LISP程序：
选择一块图（有很多对象），自动过滤只剩以下对象（单行文字，图层TEXT，字高300，旋转角度90，不包含@），将过滤所得的对象全部向右移动某个长度如400。

因为过滤条件比较多，不知如何实现，请指教。

Dream.Fei · 发表于 2007-2-4 16:31:15

(setq ss (ssget '((0 . "text") (8 . "Text") (40 . 300) (52 . 1.5709))))

选择对象,不知道有没有错.我手上有没有CAD,可能DXF码有错,大家看下吧.

okace · 发表于 2007-2-4 17:47:46

(52 . 1.5709) 是指“旋转角度90”吗？
那“不包含@[/COLOR] ”好像没有实现。[/SIZE]

Dream.Fei · 发表于 2007-2-5 13:39:12

在对象的dxf组码中,角度是不包含@的.

zxq0220 · 发表于 2007-2-5 16:28:03

这样就行了：
(SSGET (LIST
'(0 . "TEXT")
'(8 . "TEXT")
'(40 . 300.0)
(CONS 50 (/ PI 2))
'(1 . "~*\`@*")
))

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

[求助] [求助]：这种过滤条件比较多的文字操作如何实现？