[求助]：LSP程序中实体的识别

lt_zzy

我自己编写的LSP文件，总是在程序开始以后选择的实体才有效，而在这之前所选择的实体却识别不到。
可能我上面没有说清楚，下面用具体的例子来说明。
比如用“移动”命令，在没有输入命令的时候，选择一些你准备在移动的实体，所选择上的实体都显示为带蓝色的，当你输入“移动”命令的时候，这些实体就组成了一个选择集，就可以移动了。
而我却不知道如何实现这个功能，当我的程序命令输入的时候，那些已经选择的实体将被放弃，而要重新选择实体。
请各位指教！谢谢！！！

2s6j8

没做过这种事情，推猜此时程序只能做成子程序。再用工具图标调用。

lsjjm

不理解你的意思. 有什么实用价值吗? 按照一般的操作习惯, 还是输入MOVE命令后, 再选择实体...
如果你非的这样做,  
(setq ss (ssget))
(vl-cmdf "move" ss "" p1 p2 "")
程序中是这样, 可命令行上操作有什么意义?

lhlaoyu

楼上的老兄说得对

陌生人

最初由 lt_zzy 发布
[B]我自己编写的LSP文件，总是在程序开始以后选择的实体才有效，而在这之前所选择的实体却识别不到。
可能我上面没有说清楚，下面用具体的例子来说明。
比如用“移动”命令，在没有输入命令的时候，选择一些你准备在?.. [/B]

夹点功能支持基本的cad编辑命令，根本不用编程序
如移动，点已经选择实体的非夹点部分，就可以移动了。同时按ctrl键，就是拷贝。更多的功能可先是点击其中一个夹点，鼠标右键选择要操作的功能
如果程序中实在要用夹点先选，可以用(ssgetfirst)取得夹点选择集
如：
1。选实体
2。程序
(defun  c:mov ()
....
(setq ss (cdr (ssgetfirst)))
(command ".move"  ss  """ .....)
....
)

PLgis

有两个Lisp函数可以实现你需要的效果,一个是(ssget ":E"),一个是(ssgetfirst)
(ssget ":E")函数直接返回"实体都显示为带蓝色的...选择集",但(ssgetfirst)
返回的是含两个选择集的表,要进行再处理.所以一般可使用(ssget ":E")函数完成
预期的操作.例如下面的程序:
(defun c:ex()
        (setq ss(ssget ":E"))
        (command "Change" ss "" "p" "c" 1 "")
        (princ)
)

1.加载程序
2.选择一些你准备改变颜色的实体
3.执行
        command:ex
则原先选择的实体都变成了红色.
供参考.

aeo

(sssetfirst nil ss )  设

(ssgetfirst)得到

landc

我试过了，效果不错

lijiao

这是主谓操作方式,在你的程序中,一开始就用ssget函数,就能达到目的
即
(defun c:函数名 ( / )
   (setq ss (ssget .......

陌生人

最初由 lijiao 发布
[B]这是主谓操作方式,在你的程序中,一开始就用ssget函数,就能达到目的
即
(defun c:函数名 ( / )
   (setq ss (ssget ....... [/B]

怎么越讲越回去了？人家是要先选择的嘛

e2002

最初由 lt_zzy 发布
[B]我自己编写的LSP文件，总是在程序开始以后选择的实体才有效，而在这之前所选择的实体却识别不到。
可能我上面没有说清楚，下面用具体的例子来说明。
比如用“移动”命令，在没有输入命令的时候，选择一些你准备在?.. [/B]

LISP程序支持"预先选择"的,除非你程序里特别写了取消预选
我觉得你可能是AutoCAD的设置问题

LUCAS

;;try this
(defun C:TT (/ SS)
  (if (not (setq SS (ssget "P")))
    (setq SS (ssget))
  )
  (command "_.ERASE" SS "")
  (princ)
)

lt_zzy

最初由 lsjjm 发布
[B]不理解你的意思. 有什么实用价值吗? 按照一般的操作习惯, 还是输入MOVE命令后, 再选择实体...
如果你非的这样做,  
(setq ss (ssget))
(vl-cmdf "move" ss "" p1 p2 "")
程序中是这样, 可命令行上操作有什么意义... [/B]

比如说吧，你用格式刷的时候，你可以先选择一个实体，再进行选择命令，或者你可以先输入命令，然后再去选择一个实体。

lt_zzy

最初由 PLgis 发布
[B]有两个Lisp函数可以实现你需要的效果,一个是(ssget ":E"),一个是(ssgetfirst)
(ssget ":E")函数直接返回"实体都显示为带蓝色的...选择集",但(ssgetfirst)
返回的是含两个选择集的表,要进行再处理.所以一般可使用(s... [/B]

我用得是14，感觉好象没有(ssget ":E")这个命令。

nuance

":E" 应该是2000以后版本的未公开函数，
有人告诉过我(ssget ":L")是选择未锁定层的物体，那位朋友好像叫LUCAS.记不太清了。