[编程申请]：有几个lisp的小问题

wangwangnn

我刚刚开始学lisp，有两个小问题解决不了，还请大家帮忙：
1。想编一个函数完成实线变虚线的功能：
操作：
a 输入工具名称:实线变虚线
b 状态栏提示：请选择对象：（可多选）。 选中的对象即变成虚线
2。想编一个函数完成测量曲线长度的功能：
操作：
a 输入工具名称:测量曲线长度
b 状态栏提示：请选择对象：即可在状态栏显示出曲线的长度。
我是这样写的,可结果总是不对，另外不想出现文本窗口，怎么改呀？

(defun c:mm()
(setq en (car (entsel "\n选择要测量的对象：")))
(command "list" en "")
(setq d (getvar "PERIMETER"))
(princ "长度=")
(princ d)         
(princ)
)

zxq0220

[php]
(defun c:mm()
(setq en (car (entsel "\n选择要测量的对象：")))
(command "LENGTHEN" en "")
(setq d (getvar "PERIMETER"))
(princ "长度=")
(princ d)
(princ)
)
[/php]

wangwangnn

谢了，对了，但LENGTHEN是什末命令呀，我查了autolisp函数功能，没有呀 。
另外，实线变虚线应该怎末实现，还盼赐教。

zxq0220

LENGTHEN是命令，不是AUTOLISP函数。
[php]
(DEFUN C:CHL ()
(INITGET 9)
(SETQ SS (SSGET))
(COMMAND "CHANGE" SS "" "P" "LT" "HIDDEN" "")
(PRINC)
)
[/php]

wangwangnn

谢了，想问;(initget 9) 是什么意思？ 初学，实在不好意思！不过我觉得自从发现了这个论坛，我真是解决了不少问题！还要好好谢谢大家！