Xin Nhờ Các Tiền Bối Trợ Giúp Code Dim đối tượng là đường tròn

[Ngo Van Tam 0]

Em mới học về lập trình autolisp hiện tại đang viết phần mềm nhỏ về thiết kế.
Hiện tại phần mềm đã chạy ok nhưng không biết code dim đối tượng là đường tròn ntn?
Em viết lisp khá dài theo kiểu tạo các điểm theo công thức của sản phẩm bên em và từ đó vẽ các biên dạng theo các điểm đó.
Sau khi vẽ sản phẩm xong dim tất cả các kích thước.
Đến phần dim đường tròn thì em chết cứng vì có tâm rồi nhưng không biết code để nó pick vào đường tròn là ntn.
Em không muốn pick tay vì đã là phần mềm phải tự động hoàn toàn vẽ ra sản phẩm.
Em xin chân thành cảm ơn mong được các anh trên diễn đàn trợ giúp ạ

[duy782006 1602]

đường tròn hay cung tròn. Dim bán kính, đường kính hay độ dài cung.

[Ngo Van Tam 0]

Em muốn đim đường tròn là đường kính bác ạ

[duy782006 1602]

đường tròn thì có tâm. Dịch lui 1 khoảng bằng bán kính là được 1 điểm. Dịch tới được 1 điểm nửa là dim được rồi nhé

[ngokiet 170]

Thử dùng code sau:

(setq p (polar cen (/ pi 4) rad))

(command "dimdiameter" (list ent p) "non" p)

Trong đó cen : là tâm vòng tròn, rad : Bán kính vòng tròn, ent: ename của vòng tròn ấy.

 

 

[Ngo Van Tam 0]

Em Cảm ơn Các bác đã trợ giúp ạ. Em chưa hiểu lắm về ename của đối tượng.
Em ví dụ code của em vẽ line ntn thì ename của nó là vcd1 đúng không ak
Mong bác ngokiet giúp đỡ
(setq vcd1 (ssadd))
  (command "line" v3 v4 "")
  (ssadd (entlast) vcd1)

[ngokiet 170]

12 phút trước, Ngo Van Tam đã nói:

Em Cảm ơn Các bác đã trợ giúp ạ. Em chưa hiểu lắm về ename của đối tượng.
Em ví dụ code của em vẽ line ntn thì ename của nó là vcd1 đúng không ak
Mong bác ngokiet giúp đỡ
(setq vcd1 (ssadd))
  (command "line" v3 v4 "")
  (ssadd (entlast) vcd1)

Ename là (entlast) sau lệnh command đó.

[Ngo Van Tam 0]

19 giờ trước, ngokiet đã nói:

Ename là (entlast) sau lệnh command đó.

Em cảm ơn bác nhiều ạ